summaryrefslogtreecommitdiff
path: root/libguile/vm-i-system.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r--libguile/vm-i-system.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index db6d0a722..9a0e028a5 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -840,8 +840,7 @@ VM_DEFINE_INSTRUCTION (apply, "apply", 1, -1, 1)
POP (ls);
nargs = FETCH ();
- if (nargs < 2)
- goto vm_error_wrong_num_args;
+ ASSERT (nargs >= 2);
len = scm_ilength (ls);
if (len < 0)
@@ -861,8 +860,7 @@ VM_DEFINE_INSTRUCTION (goto_apply, "goto/apply", 1, -1, 1)
POP (ls);
nargs = FETCH ();
- if (nargs < 2)
- goto vm_error_wrong_num_args;
+ ASSERT (nargs >= 2);
len = scm_ilength (ls);
if (len < 0)
@@ -895,7 +893,7 @@ VM_DEFINE_INSTRUCTION (call_cc, "call/cc", 0, 1, 1)
SCM values;
values = scm_struct_ref (cont, SCM_INUM0);
if (SCM_NULLP (values))
- goto vm_error_wrong_num_args;
+ goto vm_error_no_values;
/* non-tail context does not accept multiple values? */
PUSH (SCM_CAR (values));
NEXT;