summaryrefslogtreecommitdiff
path: root/libguile/foreign.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r--libguile/foreign.c19
1 files changed, 0 insertions, 19 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 936f3419c..0992ef4d3 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -792,25 +792,6 @@ get_foreign_stub_code (unsigned int nargs)
return &foreign_stub_code[nargs * 2];
}
-/* Given a foreign procedure, determine its minimum arity. */
-int
-scm_i_foreign_arity (SCM foreign, int *req, int *opt, int *rest)
-{
- const scm_t_uint32 *code = SCM_PROGRAM_CODE (foreign);
-
- if (code < foreign_stub_code)
- return 0;
- if (code > (foreign_stub_code
- + (sizeof(foreign_stub_code) / sizeof(scm_t_uint32))))
- return 0;
-
- *req = (code - foreign_stub_code) / 2;
- *opt = 0;
- *rest = 0;
-
- return 1;
-}
-
static SCM
cif_to_procedure (SCM cif, SCM func_ptr)
{