Forgot to tell GC that ports are now pair-like.

Impotant, because otherwise their contents aren't marked
by the mark/sweep algorithm and wind up getting clobbered.

diff --git a/src/scheme.4th b/src/scheme.4th
index 5ee0dbd..677dd9d 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
 ;