summaryrefslogtreecommitdiff
path: root/libguile/vm-i-system.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-01-25 18:04:45 +0100
committerAndy Wingo <wingo@pobox.com>2010-01-26 22:56:41 +0100
commit4d9130a5b733e844e42f27f209e148fa64f731be (patch)
tree2e9694cd1d4495e1d40a88aa287ca9e678215f60 /libguile/vm-i-system.c
parentd8b04f04e90882f3903092ea85038a9e3cd10d39 (diff)
downloadguile-4d9130a5b733e844e42f27f209e148fa64f731be.tar.gz
implement foreign-call
* libguile/foreign.h: * libguile/foreign.c (scm_i_foreign_call): New internal function, actually implementing foreign calls. Untested. * libguile/vm-i-system.c (foreign-call): Wire up the call to scm_i_foreign_call.
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r--libguile/vm-i-system.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 3ddc7ea80..1c0aae5b6 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -959,7 +959,7 @@ VM_DEFINE_INSTRUCTION (58, foreign_call, "foreign-call", 1, -1, -1)
VM_HANDLE_INTERRUPTS;
SYNC_REGISTER ();
- ret = SCM_BOOL_F; /* scm_i_foreign_call (foreign, sp - nargs + 1); */
+ ret = scm_i_foreign_call (foreign, sp - nargs + 1);
NULLSTACK_FOR_NONLOCAL_EXIT ();