diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index f2cbebe64..8e6e3c474 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -130,21 +130,6 @@ static void error_used_before_defined (void) "Variable used before given a value", SCM_EOL, SCM_BOOL_F); } -int -scm_badargsp (SCM formals, SCM args) -{ - while (!scm_is_null (formals)) - { - if (!scm_is_pair (formals)) - return 0; - if (scm_is_null (args)) - return 1; - formals = CDR (formals); - args = CDR (args); - } - return !scm_is_null (args) ? 1 : 0; -} - /* the environment: (VAL ... . MOD) If MOD is #f, it means the environment was captured before modules were |