From 2ab189727b2f1502367dae83dfaf931e3eab1684 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Wed, 22 Jun 2016 13:47:04 +1200 Subject: [PATCH] Output style change. --- scheme.4th | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/scheme.4th b/scheme.4th index 4f5313b..5ad37c6 100644 --- a/scheme.4th +++ b/scheme.4th @@ -175,9 +175,9 @@ variable parse-str ; : print ( obj -- ) - ." ;" - number-type istype? if printnum exit then - boolean-type istype? if printbool exit then + ." ; " + number-type istype? if ." => " printnum exit then + boolean-type istype? if ." => " printbool exit then ; \ ---- REPL ---- @@ -186,7 +186,7 @@ create repl-buffer 161 allot repl-buffer parse-str ! : getline - repl-buffer 1+ 160 expect cr span @ repl-buffer ! ; + repl-buffer 1+ 160 expect span @ repl-buffer ! ; : eof? repl-buffer @ 0= if false exit then @@ -198,7 +198,7 @@ repl-buffer parse-str ! ." Use Ctrl-D to exit." cr begin - cr bold fg green ." => " reset-term + cr bold fg green ." > " reset-term getline eof? if -- 2.20.1