From 065cee9bda94050450dcac239a97b45056777eb7 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 10 Dec 2017 15:51:35 +0100
Subject: [PATCH] mes: Fix initial display.

* module/mes/read-0.mes (display): Fix.
---
 module/mes/read-0.mes | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/mes/read-0.mes b/module/mes/read-0.mes
index 0faeeb8b..2753b15a 100644
--- a/module/mes/read-0.mes
+++ b/module/mes/read-0.mes
@@ -109,7 +109,8 @@
   (define <cell:string> 10)
 
   (define (newline . rest) (core:display (list->string (list (integer->char 10)))))
-  (define (display x . rest) core:display)
+  (define (display x . rest) (if (null? rest) (core:display x)
+                                 (core:display x (car rest))))
   
   (define (list->symbol lst) (core:lookup-symbol lst))