2dup cdr
- nil? not if
+ nil? invert if
except-message: ." Continuations expect exactly 1 argument."
recoverable-exception throw
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
;