mes: Fix initial display.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 10 Dec 2017 14:51:35 +0000 (15:51 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 10 Dec 2017 14:51:35 +0000 (15:51 +0100)
* module/mes/read-0.mes (display): Fix.

module/mes/read-0.mes

index 0faeeb8b443d7a38bd200bb406f140992aeaaa19..2753b15aa6fc7d9b9797e85f3fd02b68dd90ba5b 100644 (file)
   (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))