summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-21 21:06:27 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-21 21:06:27 +0100
commit86fd6dff2a77150148ed7b3d9152e0a431070666 (patch)
tree566f285b090bfd155894cbf0b8e5e7dd7ba709b6 /libguile/eval.c
parent700908288cdafd7d68dc2861e2348f38aeb38782 (diff)
downloadguile-86fd6dff2a77150148ed7b3d9152e0a431070666.tar.gz
add scm_call_n, scm_c_run_hookn
* libguile/eval.h: * libguile/eval.c (scm_call_n): New function, applies a function to an array of args. * libguile/hooks.h: * libguile/hooks.c (scm_c_run_hookn): New function, runs a hook with an array of args.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 48d1d74ef..65103a1b2 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -552,6 +552,12 @@ scm_call_4 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4)
return scm_c_vm_run (scm_the_vm (), proc, args, 4);
}
+SCM
+scm_call_n (SCM proc, SCM *argv, size_t nargs)
+{
+ return scm_c_vm_run (scm_the_vm (), proc, argv, nargs);
+}
+
/* Simple procedure applies
*/