mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

implement foreign-call

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2010-01-25 18:04:45 +01:00
parent d8b04f04e9
commit 4d9130a5b7
3 changed files with 135 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-i-system.c
View file

@ -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 ();