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

2001-10-05 16:25:41 +00:00 · 2001-10-05 16:25:41 +00:00 · 59bd2ab6e4
parent b92828ec10
commit 59bd2ab6e4
1 changed files with 2 additions and 4 deletions
--- a/scheme/big/more-port.scm
+++ b/scheme/big/more-port.scm
@ -325,10 +325,8 @@
 		  (buffer-set! buffer start next)
 		  1)))))
   (lambda (port)
-     (if (or (port-pending-eof? port)
-	     (source-data-buffer (port-data port)))
-	 #t
-	 ((source-data-ready? (port-data port)))))))
+     (error "Peek on char-source is not implemented. Complain to the scsh implementors"))))
+             

 (define (buffer-set! buffer index char)
  (if (string? buffer)