Debugging MCE.

[scheme.forth.jl.git] / src / scheme.4th

diff --git a/src/scheme.4th b/src/scheme.4th
index 5ee0dbd..669665a 100644 (file)
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -1894,6 +1894,7 @@ variable gc-stack-depth
     string-type istype? if true exit then
     symbol-type istype? if true exit then
     compound-proc-type istype? if true exit then
+    port-type istype? if true exit then
 
     false
 ;
@@ -1954,7 +1955,7 @@ variable gc-stack-depth
 ;
 
 :noname
-    \ ." GC! "
+    ." GC! "
 
     gc-unmark