diff options
Diffstat (limited to 'libguile/vm.c')
-rw-r--r-- | libguile/vm.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index fdfae0082..689359e18 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -280,16 +280,6 @@ apply_foreign (SCM proc, SCM *args, int nargs, int headroom) case scm_tc7_cxr: if (nargs != 1) scm_wrong_num_args (proc); return scm_i_chase_pairs (args[0], (scm_t_bits) SCM_SUBRF (proc)); - case scm_tc7_asubr: - if (nargs < 2) - return SCM_SUBRF (proc) (args[0], SCM_UNDEFINED); - { - SCM x = args[0]; - int idx = 1; - while (nargs-- > 1) - x = SCM_SUBRF (proc) (x, args[idx++]); - return x; - } case scm_tc7_rpsubr: { int idx = 0; |