22 lines
578 B
Factor
22 lines
578 B
Factor
! Copyright (C) 2004, 2007 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: continuations continuations.private kernel
|
|
kernel.private sequences assocs namespaces namespaces.private ;
|
|
IN: init
|
|
|
|
SYMBOL: startup-hooks
|
|
|
|
startup-hooks global [ drop V{ } clone ] cache drop
|
|
|
|
: do-startup-hooks ( -- )
|
|
startup-hooks get [ nip call ] assoc-each ;
|
|
|
|
: add-startup-hook ( quot name -- )
|
|
over call startup-hooks get set-at ;
|
|
|
|
: boot ( -- ) init-namespaces init-error-handler ;
|
|
|
|
: boot-quot ( -- quot ) 8 getenv ;
|
|
|
|
: set-boot-quot ( quot -- ) 8 setenv ;
|