From b969c0820590b553d86c43d13087726b09296019 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Thu, 16 May 2019 00:05:47 +0200
Subject: [PATCH] mes: Support optional port on read.

* mes/module/mes/scm.mes (read): Support optional port on read.
---
 mes/module/mes/scm.mes | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/mes/module/mes/scm.mes b/mes/module/mes/scm.mes
index a0cd0516..327750b9 100644
--- a/mes/module/mes/scm.mes
+++ b/mes/module/mes/scm.mes
@@ -85,6 +85,12 @@
 
 (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))))