[Scsh-checkins] CVS: scsh-0.6/scsh newports.scm,1.15,1.16 scsh-interfaces.scm,1.26,1.27

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv3082

Modified Files:
        newports.scm scsh-interfaces.scm 
Log Message:
Added channel->port.


Index: newports.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/newports.scm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** newports.scm        2001/10/03 17:09:15     1.15
--- newports.scm        2001/11/27 11:08:30     1.16
***************
*** 609,612 ****
--- 609,616 ----
    (values)) ; Do nothing if applied to a file descriptor.
  
+ ;;; extend channel-i/o's version to fdports
+ ;;; WARNING: evil procedure, bypasses port-lock
+ (define (port->channel port)
+   (fdport-data:channel (fdport-data port)))
  
  (define (format dest cstring . args)

Index: scsh-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh-interfaces.scm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** scsh-interfaces.scm 2001/10/18 09:02:52     1.26
--- scsh-interfaces.scm 2001/11/27 11:08:30     1.27
***************
*** 127,131 ****
  
                              init-fdports!  ;added by JMG
!                            
                              force-output
                              set-port-buffering
--- 127,132 ----
  
                              init-fdports!  ;added by JMG
!                             port->channel  ;overwrites channel-i/o
! 
                              force-output
                              set-port-buffering