mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

Fix subr-call

Browse source 
* libguile/vm-engine.c (subr-call): Fix for locals count including the
  procedure.
This commit is contained in:
Andy Wingo 2013-10-17 23:21:29 +02:00
parent e93c0430fa
commit 8d23c43641
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.c
View file

@ -1147,7 +1147,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
VM_HANDLE_INTERRUPTS; VM_HANDLE_INTERRUPTS;
SYNC_IP (); SYNC_IP ();
switch (FRAME_LOCALS_COUNT ()) switch (FRAME_LOCALS_COUNT () - 1)
{ {
case 0: case 0:
ret = subr (); ret = subr ();