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-19 05:59:09 +00:00
parent f21dfea659
commit 24aa2715f6
4 changed files with 24 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/vm_system.c
View file

@ -337,24 +337,11 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
*/
if (SCM_PROGRAM_P (x))
{
int i, last;
program = x;
vm_call_program:
CACHE_PROGRAM ();
INIT_ARGS ();
NEW_FRAME ();
/* Init local variables */
last = bp->nargs + bp->nlocs;
for (i = bp->nargs; i < last; i++)
LOCAL_SET (i, SCM_UNDEFINED);
/* Create external variables */
external = bp->external;
for (i = 0; i < bp->nexts; i++)
CONS (external, SCM_UNDEFINED, external);
ENTER_HOOK ();
APPLY_HOOK ();
NEXT;
@ -501,6 +488,7 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
FREE_FRAME ();
/* Restore the last program */
external = fp[bp->nargs + bp->nlocs];
program = SCM_VM_FRAME_PROGRAM (fp);
CACHE_PROGRAM ();
PUSH (ret);