diff options
author | Andy Wingo <wingo@pobox.com> | 2010-01-25 18:04:45 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-01-26 22:56:41 +0100 |
commit | 4d9130a5b733e844e42f27f209e148fa64f731be (patch) | |
tree | 2e9694cd1d4495e1d40a88aa287ca9e678215f60 /libguile/vm-i-system.c | |
parent | d8b04f04e90882f3903092ea85038a9e3cd10d39 (diff) | |
download | guile-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.c | 2 |
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 (); |