diff --git a/C/heapgc.c b/C/heapgc.c index 4ae5c9d39..a1459b6a2 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -3765,10 +3765,9 @@ call_gc(UInt gc_lim, Int predarity, CELL *current_env, yamop *nextop) if (gc_margin < gc_lim) gc_margin = gc_lim; GcCalls++; - if (gc_on && !(Yap_PrologMode & InErrorMode) //&& - /* make sure there is a point in collecting th eheap */ - //H-H0 > (LCL0-ASP)/2) { - ) { + if (gc_on && !(Yap_PrologMode & InErrorMode) && + /* make sure there is a point in collecting the heap */ + H-H0 > (LCL0-ASP)/2) { effectiveness = do_gc(predarity, current_env, nextop); if (effectiveness > 90) { while (gc_margin < H-H0)