From: Tim Vaughan 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 ;