Continuations objs are pairlike for GC marking.

diff --git a/src/scheme-primitives.4th b/src/scheme-primitives.4th
index a9b4741..c3eeb5d 100644 (file)
--- a/src/scheme-primitives.4th
+++ b/src/scheme-primitives.4th
@@ -617,8 +617,6 @@ defer display
         2swap 2drop
     then
 
         2swap 2drop
     then
 

-    trace
-

 ; 1 make-fa-primitive call-with-current-continuation
 
 \ }}}
 ; 1 make-fa-primitive call-with-current-continuation
 
 \ }}}

diff --git a/src/scheme.4th b/src/scheme.4th
index 9d64667..9347750 100644 (file)
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -1790,7 +1790,7 @@ parse-idx-stack parse-idx-sp !
 
             2dup cdr
 
 
             2dup cdr
 

-            nil? not if
+            nil? invert if

                 except-message: ." Continuations expect exactly 1 argument."
                 recoverable-exception throw
             then
                 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
     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
 ;
 
     false
 ;