[Scsh-checkins] CVS: scsh-0.6/scheme/rts port.scm,1.5,1.6

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

Update of /cvsroot/scsh/scsh-0.6/scheme/rts
In directory usw-pr-cvs1:/tmp/cvs-serv27909/scheme/rts

Modified Files:
        port.scm 
Log Message:
Hand out the port and not just port-data to the handler.


Index: port.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/rts/port.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** port.scm    2001/03/23 10:59:07     1.5
--- port.scm    2001/04/09 07:54:50     1.6
***************
*** 227,231 ****
    (if (not (open-input-port? port))
        (call-error "invalid argument" char-ready? port)
!       ((port-handler-ready? (port-handler port)) (port-data port))))
         
  
--- 227,231 ----
    (if (not (open-input-port? port))
        (call-error "invalid argument" char-ready? port)
!       ((port-handler-ready? (port-handler port)) port)))
         
  
***************
*** 339,343 ****
        (else
         (let ((val ((port-handler-ready? (port-handler port)) 
!                    (port-data port))))
           (release-port-lock port)
           val))))
--- 339,343 ----
        (else
         (let ((val ((port-handler-ready? (port-handler port)) 
!                    port)))
           (release-port-lock port)
           val))))