diff --git a/C/globals.c b/C/globals.c index 59be2a42b..1e77bf2d1 100644 --- a/C/globals.c +++ b/C/globals.c @@ -228,7 +228,7 @@ static Int p_default_arena_size(USES_REGS1) { return Yap_unify(ARG1, MkIntegerTerm(ArenaSz(LOCAL_GlobalArena))); } -void Yap_AllocateDefaultArena(size_t gsize, int wid) { +void Yap_AllocateDefaultArena(Int gsize, Int attsize, int wid) { REMOTE_GlobalArena(wid) = NewArena(gsize, wid, 2, NULL); } diff --git a/pl/consult.yap b/pl/consult.yap index 5920f944e..59c57672a 100644 --- a/pl/consult.yap +++ b/pl/consult.yap @@ -862,6 +862,7 @@ nb_setval('$if_level',0). '__NB_getval__'('$lf_status', TOpts, fail), '$lf_opt'( initialization, TOpts, Ref), nb:nb_queue_close(Ref, Answers, []), + writeln(init:Answers), '$process_init_goal'(Answers). '$exec_initialization_goals'. @@ -1449,7 +1450,9 @@ environment. Use initialization/2 for more flexible behavior. '$initialization_queue'(G) :- b_getval('$lf_status', TOpts), '$lf_opt'( initialization, TOpts, Ref), + writeln(G), nb:nb_queue_enqueue(Ref, G), + writeln(Ref), fail. '$initialization_queue'(_).