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

39 lines
1.0 KiB
Factor
Raw Normal View History

Make more code infer
2009-03-17 03:19:50 -04:00
! Copyright (C) 2004, 2009 Slava Pestov.
Initial import
2007-09-20 18:09:08 -04:00
! See http://factorcode.org/license.txt for BSD license.
core: cleanup USING lists.
2013-03-05 13:34:47 -05:00
USING: assocs continuations continuations.private kernel
kernel.private namespaces ;
Initial import
2007-09-20 18:09:08 -04:00
IN: init
change add-init-hook to add-startup-hook, new add-shutdown-hook word
2009-10-19 22:17:02 -04:00
SYMBOL: startup-hooks
SYMBOL: shutdown-hooks
Initial import
2007-09-20 18:09:08 -04:00
init: cleaner using "initialize" instead of "global [ ... ] cache".
2015-07-09 22:06:19 -04:00
startup-hooks [ V{ } clone ] initialize
shutdown-hooks [ V{ } clone ] initialize
Initial import
2007-09-20 18:09:08 -04:00
the exit primitive is now called (exit) and exit calls shutdown hooks. add a stop_factor function to the vm to allow calling the shutdown quotation
2009-10-20 00:28:18 -04:00
: do-hooks ( symbol -- )
get [ nip call( -- ) ] assoc-each ;
Initial import
2007-09-20 18:09:08 -04:00
the exit primitive is now called (exit) and exit calls shutdown hooks. add a stop_factor function to the vm to allow calling the shutdown quotation
2009-10-20 00:28:18 -04:00
: do-startup-hooks ( -- ) startup-hooks do-hooks ;
change add-init-hook to add-startup-hook, new add-shutdown-hook word
2009-10-19 22:17:02 -04:00
the exit primitive is now called (exit) and exit calls shutdown hooks. add a stop_factor function to the vm to allow calling the shutdown quotation
2009-10-20 00:28:18 -04:00
: do-shutdown-hooks ( -- ) shutdown-hooks do-hooks ;
change add-init-hook to add-startup-hook, new add-shutdown-hook word
2009-10-19 22:17:02 -04:00
: add-startup-hook ( quot name -- )
startup-hooks get
[ at [ drop ] [ call( -- ) ] if ]
[ set-at ] 3bi ;
: add-shutdown-hook ( quot name -- )
shutdown-hooks get set-at ;
Initial import
2007-09-20 18:09:08 -04:00
Oops
2009-05-01 09:21:31 -04:00
: boot ( -- ) init-namespaces init-catchstack init-error-handler ;
Initial import
2007-09-20 18:09:08 -04:00
constants for special object hardcoded literals
2011-11-02 15:54:31 -04:00
: startup-quot ( -- quot ) OBJ-STARTUP-QUOT special-object ;
Initial import
2007-09-20 18:09:08 -04:00
constants for special object hardcoded literals
2011-11-02 15:54:31 -04:00
: set-startup-quot ( quot -- ) OBJ-STARTUP-QUOT set-special-object ;
the exit primitive is now called (exit) and exit calls shutdown hooks. add a stop_factor function to the vm to allow calling the shutdown quotation
2009-10-20 00:28:18 -04:00
constants for special object hardcoded literals
2011-11-02 15:54:31 -04:00
: shutdown-quot ( -- quot ) OBJ-SHUTDOWN-QUOT special-object ;
the exit primitive is now called (exit) and exit calls shutdown hooks. add a stop_factor function to the vm to allow calling the shutdown quotation
2009-10-20 00:28:18 -04:00
constants for special object hardcoded literals
2011-11-02 15:54:31 -04:00
: set-shutdown-quot ( quot -- ) OBJ-SHUTDOWN-QUOT set-special-object ;
the exit primitive is now called (exit) and exit calls shutdown hooks. add a stop_factor function to the vm to allow calling the shutdown quotation
2009-10-20 00:28:18 -04:00
[ do-shutdown-hooks ] set-shutdown-quot