From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 1 Aug 2018 14:43:26 +0000 (+0200)
Subject: Continuations objs are pairlike for GC marking.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=ed0aaed61b10e03e5f064404f506eaa73e50c87d;p=scheme.forth.jl.git

Continuations objs are pairlike for GC marking.
---

diff --git a/src/scheme-primitives.4th b/src/scheme-primitives.4th
index a9b4741..c3eeb5d 100644
--- a/src/scheme-primitives.4th
+++ b/src/scheme-primitives.4th
@@ -617,8 +617,6 @@ defer display
         2swap 2drop
     then
 
-    trace
-
 ; 1 make-fa-primitive call-with-current-continuation
 
 \ }}}
diff --git a/src/scheme.4th b/src/scheme.4th
index 9d64667..9347750 100644
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -1790,7 +1790,7 @@ parse-idx-stack parse-idx-sp !
 
             2dup cdr
 
-            nil? not if
+            nil? invert if
                 except-message: ." Continuations expect exactly 1 argument."
                 recoverable-exception throw
             then
@@ -2101,6 +2101,7 @@ parse-idx-stack parse-idx-sp !
     symbol-type istype? if true exit then
     compound-proc-type istype? if true exit then
     port-type istype? if true exit then
+    continuation-type istype? if true exit then
 
     false
 ;