Forgot to tell GC that ports are now pair-like.
authorTim Vaughan <tgvaughan@gmail.com>
Sun, 23 Apr 2017 11:00:06 +0000 (23:00 +1200)
committerTim Vaughan <tgvaughan@gmail.com>
Sun, 23 Apr 2017 11:00:06 +0000 (23:00 +1200)
Impotant, because otherwise their contents aren't marked
by the mark/sweep algorithm and wind up getting clobbered.

src/scheme.4th

index 5ee0dbd..677dd9d 100644 (file)
@@ -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
 ;