From ed0aaed61b10e03e5f064404f506eaa73e50c87d Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Wed, 1 Aug 2018 16:43:26 +0200 Subject: [PATCH] Continuations objs are pairlike for GC marking. --- src/scheme-primitives.4th | 2 -- src/scheme.4th | 3 ++- 2 files changed, 2 insertions(+), 3 deletions(-) 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 ; -- 2.20.1