summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-01-05 19:45:56 +0100
committerAndy Wingo <wingo@pobox.com>2010-01-07 23:42:41 +0100
commit6f3b0cc29eb1c1dcb2e02058e3db9ab04ca36b42 (patch)
treecd54bfb0b6196206aa67d26638e92bc9a857f134 /libguile/init.c
parenta6029b97ea84d9e9a13d71b21213b6fd0be41e87 (diff)
downloadguile-6f3b0cc29eb1c1dcb2e02058e3db9ab04ca36b42.tar.gz
tc7 tags for vm-related data
* libguile/tags.h (scm_tc7_frame, scm_tc7_objcode, scm_tc7_vm) (scm_tc7_vm_cont): Take more tc7s for VM-related data structures. * libguile/evalext.c (scm_self_evaluating_p): * libguile/gc.c (scm_i_tag_name): * libguile/goops.c (scm_class_of, create_standard_classes): * libguile/print.c (iprin1): Add cases for the new tc7s. * libguile/frames.c: * libguile/frames.h: * libguile/objcodes.c: * libguile/objcodes.h: * libguile/vm.c: * libguile/vm.h: Desmobify. * libguile/vm.c (scm_vm_apply): Export to Scheme, because VM objects are no longer applicable. * module/system/repl/command.scm (profile): * module/system/vm/trace.scm (vm-trace): * module/system/vm/vm.scm (vm-load): Call vm-apply to run a program in a VM instead of treating the VM as applicable.
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/init.c b/libguile/init.c
index e2e90a1d7..b3d67a9b9 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -522,11 +522,10 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_arrays (); /* Requires smob_prehistory, array-handle */
scm_init_array_map ();
- scm_bootstrap_frames (); /* requires smob_prehistory */
scm_bootstrap_instructions ();
- scm_bootstrap_objcodes (); /* requires smob_prehistory */
+ scm_bootstrap_objcodes ();
scm_bootstrap_programs ();
- scm_bootstrap_vm (); /* requires smob_prehistory */
+ scm_bootstrap_vm ();
scm_init_frames (); /* Requires smob_prehistory */
scm_init_stacks (); /* Requires strings, struct, frames */