mes: #<eof> is not a character.
[mes.git] / module / mes / scm.mes
index 78f5e137c7a2987c575dac757c6291cfa5d91946..550ec6c6e7b0f760d0844f9484b3ca573b990ffe 100644 (file)
 \f
 (define integer? number?)
 
-(define (eof-object? x)
-  (or (and (number? x) (= x -1))
-      (and (char? x) (eof-object? (char->integer x)))))
-
 (if (not (defined? 'peek-char))
     (define (peek-char)
       (integer->char (peek-byte))))
@@ -96,7 +92,7 @@
 
 (if (not (defined? 'unread-char))
     (define (unread-char c)
-      (unread-byte (char->integer c))))
+      (integer->char (unread-byte (char->integer c)))))
 
 (define (assq-set! alist key val)
   (let ((entry (assq key alist)))