steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix circularity

db4
Slava Pestov 2009-05-01 08:05:48 -05:00
parent 3de9a8a1e5
commit 5e32a53011
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/continuations/continuations.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays vectors kernel kernel.private sequences USING: arrays vectors kernel kernel.private sequences
namespaces make math splitting sorting quotations assocs namespaces make math splitting sorting quotations assocs
combinators combinators.private accessors words ; combinators combinators.private accessors words init ;
IN: continuations IN: continuations
SYMBOL: error SYMBOL: error
@ -200,3 +200,5 @@ M: condition compute-restarts
"kernel-error" 6 setenv ; "kernel-error" 6 setenv ;
PRIVATE> PRIVATE>
[ init-catchstack init-error-handler ] "continuations" add-init-hook

5
core/init/init.factor
View File

@ -1,7 +1,6 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: continuations continuations.private kernel USING: kernel kernel.private sequences assocs namespaces namespaces.private ;
kernel.private sequences assocs namespaces namespaces.private ;
IN: init IN: init
SYMBOL: init-hooks SYMBOL: init-hooks
@ -15,7 +14,7 @@ init-hooks global [ drop V{ } clone ] cache drop
dup init-hooks get at [ over call( -- ) ] unless dup init-hooks get at [ over call( -- ) ] unless
init-hooks get set-at ; init-hooks get set-at ;
: boot ( -- ) init-namespaces init-catchstack init-error-handler ; : boot ( -- ) init-namespaces ;
: boot-quot ( -- quot ) 20 getenv ; : boot-quot ( -- quot ) 20 getenv ;