scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Peek on char-source-input-ports does not work. Added error message to report this.

This commit is contained in:
mainzelm 2001-10-05 16:25:41 +00:00
parent b92828ec10
commit 59bd2ab6e4
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/big/more-port.scm
View File

@ -325,10 +325,8 @@
(buffer-set! buffer start next) (buffer-set! buffer start next)
1))))) 1)))))
(lambda (port) (lambda (port)
(if (or (port-pending-eof? port) (error "Peek on char-source is not implemented. Complain to the scsh implementors"))))
(source-data-buffer (port-data port)))
#t
((source-data-ready? (port-data port)))))))
(define (buffer-set! buffer index char) (define (buffer-set! buffer index char)
(if (string? buffer) (if (string? buffer)