From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 23 Apr 2017 11:00:06 +0000 (+1200)
Subject: Forgot to tell GC that ports are now pair-like.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=commitdiff_plain;h=f982d9a741201927d246f9ece3456f331668a4ae

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
--- 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
 ;