X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme.4th;h=d6dccd1c7d91aaf44c81693b7e4cb9005d519a76;hp=af4157fac16d3c17c3e9a42b4ae192ad8fd3047a;hb=3f60507c407dc22a19b4539d08cc926c54141653;hpb=9f9a9e8584f448eaace99625204b23d7cfed0f2e

diff --git a/src/scheme.4th b/src/scheme.4th
index af4157f..d6dccd1 100644
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -2018,7 +2018,9 @@ variable gc-stack-depth
 ;
 
 :noname
-    \ ." GC! "
+    ." GC! "
+
+    trace
 
     gc-unmark
 
@@ -2036,7 +2038,7 @@ variable gc-stack-depth
 
     gc-sweep
 
-    \ ." (" gc-count-marked . ." pairs marked as used.)" cr
+    ." (" gc-count-marked . ." pairs marked as used.)" cr
 ; is collect-garbage
 
 \ }}}
@@ -2051,8 +2053,14 @@ variable gc-stack-depth
     ok-symbol ( port res )
 
     begin
+        \ DEBUG
+        bold fg blue ." READ from " 2over drop . ." ==> " reset-term
+
         2over read-port ( port res obj )
 
+        \ DEBUG
+        2dup print cr
+
         2dup EOF character-type objeq? if
             2drop 2swap close-port
             exit
@@ -2101,7 +2109,7 @@ variable gc-stack-depth
     enable-gc
 
     \ Display welcome message
-    welcome-symbol nil cons global-env obj@ eval 2drop
+    \ welcome-symbol nil cons global-env obj@ eval 2drop
 
     begin
         ['] repl-body catch