more fixes to recursive call execution and backtracking from within C-mode.

semweb java example now working.
This commit is contained in:
Vítor Santos Costa
2010-12-14 09:30:40 +00:00
parent 666ef1877d
commit eb82f5fa2a
3 changed files with 7 additions and 11 deletions

View File

@@ -1021,9 +1021,6 @@ init_stack(int arity, CELL *pt, int top, choiceptr saved_b)
collection is going up in the environment chain it doesn't get
confused */
EX = NULL;
/* always have an empty slots for people to use */
CurSlot = 0;
Yap_StartSlots();
// sl = Yap_InitSlot(t);
YENV = ASP;
YENV[E_CP] = (CELL)P;
@@ -1644,6 +1641,7 @@ Yap_InitYaamRegs(void)
EX = NULL;
init_stack(0, NULL, TRUE, NULL);
/* the first real choice-point will also have AP=FAIL */
/* always have an empty slots for people to use */
CurSlot = 0;
GlobalArena = TermNil;
h0var = MkVarTerm();