mes: Support optional port on read.
authorJan (janneke) Nieuwenhuizen <janneke@gnu.org>
Wed, 15 May 2019 22:05:47 +0000 (00:05 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 15 May 2019 22:05:47 +0000 (00:05 +0200)
* mes/module/mes/scm.mes (read): Support optional port on read.

mes/module/mes/scm.mes

index a0cd051626accc2925ebcc8b588e1a509c0cc63c..327750b917fb48a02c0323a291de1e1e739d3e5e 100644 (file)
 \f
 (define integer? number?)
 
+(define (read . port)
+  (if (null? port) (read-env (current-module))
+      (let* ((prev (set-current-input-port (car port)))
+             (result (read-env (current-module))))
+        result)))
+
 (if (not (defined? 'peek-char))
     (define (peek-char)
       (integer->char (peek-byte))))