: init-errors ( -- )
64 <vector> set-catchstack* ;
-: init-gc ( -- )
- [ garbage-collection ] 7 setenv ;
-
: boot ( -- )
#! Initialize an interpreter with the basic services.
- init-gc
init-errors
init-namespaces
init-threads
: cpu ( -- arch )
#! Returns one of "x86" or "unknown".
- 11 getenv ;
+ 7 getenv ;
! The 'fake vtable' used here speeds things up a lot.
! It is quite clumsy, however. A higher-level CLOS-style
#define GLOBAL_ENV 4
#define BREAK_ENV 5
#define CATCHSTACK_ENV 6 /* used by library only */
-#define GC_ENV 7
+#define CPU_ENV 7
#define BOOT_ENV 8
#define RUNQUEUE_ENV 9 /* used by library only */
#define ARGS_ENV 10
-#define CPU_ENV 11
/* Profiling timer */
struct itimerval prof_timer;