From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 22 Jun 2016 01:47:04 +0000 (+1200)
Subject: Output style change.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=2ab189727b2f1502367dae83dfaf931e3eab1684;p=scheme.forth.jl.git

Output style change.
---

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