USING: continuations kernel kernel.private namespaces ;

IN: continuations.private

: init-error-handler ( -- )
init-catchstack [
OBJ-CURRENT-THREAD special-object error-thread
set-global
current-continuation error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
] ERROR-HANDLER-QUOT set-special-object
"kernel-error" OBJ-ERROR set-special-object ;