artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Fix initial display.

Browse source 
* module/mes/read-0.mes (display): Fix.
This commit is contained in:
Jan Nieuwenhuizen 2017-12-10 15:51:35 +01:00
parent aec2f68118
commit 065cee9bda
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
module/mes/read-0.mes
View file

@ -109,7 +109,8 @@
(define <cell:string> 10) (define <cell:string> 10)
(define (newline . rest) (core:display (list->string (list (integer->char 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)) (define (list->symbol lst) (core:lookup-symbol lst))