X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=5ad37c6c98cd09ecf41b2235b80731a85a02e62b;hb=2ab189727b2f1502367dae83dfaf931e3eab1684;hp=4f5313b3d5c5552eff2841d8ef3f451dc9d60159;hpb=24acc44c999a869d56c734b5e30fae16d6c516c6;p=scheme.forth.jl.git

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