mes: #<eof> is not a character.

[mes.git] / module / mes / type-0.mes

diff --git a/module/mes/type-0.mes b/module/mes/type-0.mes
index 122fc26179e9973e0ae5610c5ef8b0c6aa404152..6b709cfec043fae909e954420f677447798b53dd 100644 (file)
--- a/module/mes/type-0.mes
+++ b/module/mes/type-0.mes
@@ -1,7 +1,7 @@
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of Mes.
 ;;;
@@ -62,7 +62,12 @@
   (cond ((assq (core:type x) cell:type-alist) => cdr)))
 
 (define (char? x)
-  (eq? (core:type x) <cell:char>))
+  (and (eq? (core:type x) <cell:char>)
+       (>= (char->integer x) 0)))
+
+(define (eof-object? x)
+  (and (eq? (core:type x) <cell:char>)
+       (= (char->integer x) -1)))
 
 (define (closure? x)
   (eq? (core:type x) <cell:closure>))