mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-11 23:12:37 +00:00
parent 75b55db5f8
commit 662925356a
5 changed files with 31 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/vm_system.c
View file

@ -347,6 +347,7 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
NEXT;
}
program = x;
goto vm_error_wrong_type_apply;
}
@ -415,6 +416,7 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1)
if (SCM_VM_CONT_P (x))
goto vm_call_cc;
program = x;
goto vm_error_wrong_type_apply;
}