diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-01 22:20:03 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-01 22:20:03 +0100 |
commit | 67e2d80a6a97b51aefea701cf10112102b09b392 (patch) | |
tree | ac3dfda730ddb8ffb6dabbde888dc838a8723d95 /libguile/init.c | |
parent | cc8d1f5fcd97de920111d407d2c9e88d6aedbc6d (diff) | |
download | guile-67e2d80a6a97b51aefea701cf10112102b09b392.tar.gz |
apply goes to the vm, not the interpreter
* libguile/eval.c (eval): Call scm_vm_apply instead of apply.
(apply): Deleted, no longer referenced. Heh.
(scm_apply): Call scm_vm_apply.
* libguile/init.c (scm_i_init_guile): Bootstrap the VM before the
evaluator.
* libguile/vm.c (scm_vm_apply): Actually it's not necessary that the
procedure is a program; so that's cool, relax the check.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/init.c b/libguile/init.c index 85b277b32..a7434b33d 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -551,6 +551,7 @@ scm_i_init_guile (SCM_STACKITEM *base) scm_init_weaks (); scm_init_guardians (); scm_init_vports (); + scm_bootstrap_vm (); scm_init_memoize (); scm_init_eval (); scm_init_evalext (); @@ -588,8 +589,6 @@ scm_i_init_guile (SCM_STACKITEM *base) scm_init_rw (); scm_init_extensions (); - scm_bootstrap_vm (); - atexit (cleanup_for_exit); scm_load_startup_files (); } |