diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor index 56ac4a71e9..d46b73f83d 100644 --- a/core/continuations/continuations.factor +++ b/core/continuations/continuations.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: arrays vectors kernel kernel.private sequences namespaces make math splitting sorting quotations assocs -combinators combinators.private accessors words ; +combinators combinators.private accessors words init ; IN: continuations SYMBOL: error @@ -200,3 +200,5 @@ M: condition compute-restarts "kernel-error" 6 setenv ; PRIVATE> + +[ init-catchstack init-error-handler ] "continuations" add-init-hook \ No newline at end of file diff --git a/core/init/init.factor b/core/init/init.factor index 5d8e88b85f..70464a4ba4 100644 --- a/core/init/init.factor +++ b/core/init/init.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2004, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: continuations continuations.private kernel -kernel.private sequences assocs namespaces namespaces.private ; +USING: kernel kernel.private sequences assocs namespaces namespaces.private ; IN: init SYMBOL: init-hooks @@ -15,7 +14,7 @@ init-hooks global [ drop V{ } clone ] cache drop dup init-hooks get at [ over call( -- ) ] unless init-hooks get set-at ; -: boot ( -- ) init-namespaces init-catchstack init-error-handler ; +: boot ( -- ) init-namespaces ; : boot-quot ( -- quot ) 20 getenv ;