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

add return/nvalues

Browse source 
* libguile/vm-i-system.c (return/nvalues): New instruction, like
  call/nargs.
This commit is contained in:
Andy Wingo 2010-01-31 10:44:44 +01:00
parent 88fed05d03
commit 2d9260d12c
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/vm-i-system.c
View file

@ -1264,6 +1264,15 @@ VM_DEFINE_INSTRUCTION (68, return_values_star, "return/values*", 1, -1, -1)
goto vm_return_values; goto vm_return_values;
} }
VM_DEFINE_INSTRUCTION (88, return_nvalues, "return/nvalues", 0, 1, -1)
{
SCM n;
POP (n);
nvalues = scm_to_int (n);
ASSERT (nvalues >= 0);
goto vm_return_values;
}
VM_DEFINE_INSTRUCTION (69, truncate_values, "truncate-values", 2, -1, -1) VM_DEFINE_INSTRUCTION (69, truncate_values, "truncate-values", 2, -1, -1)
{ {
SCM x; SCM x;