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/vm.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/vm.c')
-rw-r--r-- | libguile/vm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index f9e4abe47..247bb7d09 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -514,7 +514,7 @@ scm_vm_apply (SCM vm, SCM program, SCM args) int i, nargs; SCM_VALIDATE_VM (1, vm); - SCM_VALIDATE_PROGRAM (2, program); + SCM_VALIDATE_PROC (2, program); nargs = scm_ilength (args); if (SCM_UNLIKELY (nargs < 0)) |