fix call_with_args/.. (obs from Jose Santos).

2009-04-26 11:16:40 -05:00 · 2009-04-26 11:16:40 -05:00 · 5baaf79916
commit 5baaf79916
parent 6c10e49eb8
1 changed files with 1 additions and 1 deletions
--- a/C/exec.c
+++ b/C/exec.c
@ -837,7 +837,7 @@ call_with_args(int i)
  if (!t)
    return FALSE;
  for (j=0;j<i;j++)
-    heap_store(Deref(XREGS[i+2]));
+    heap_store(Deref(XREGS[j+2]));
  return(do_execute_n(t, mod, i));
 }