[Scsh-checkins] CVS: scsh-0.6/scheme/big more-port.scm,1.2,1.3

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

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

Modified Files:
        more-port.scm 
Log Message:
Peek on char-source-input-ports does not work. Added error message to report 
this.


Index: more-port.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/big/more-port.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** more-port.scm       2001/03/23 10:59:07     1.2
--- more-port.scm       2001/10/05 16:25:41     1.3
***************
*** 326,333 ****
                  1)))))
     (lambda (port)
!      (if (or (port-pending-eof? port)
!            (source-data-buffer (port-data port)))
!        #t
!        ((source-data-ready? (port-data port)))))))
  
  (define (buffer-set! buffer index char)
--- 326,331 ----
                  1)))))
     (lambda (port)
!      (error "Peek on char-source is not implemented. Complain to the scsh 
implementors"))))
!              
  
  (define (buffer-set! buffer index char)