diff --git a/CHR/chr.yap b/CHR/chr.yap index 0d20a204e..85a2e55a3 100644 --- a/CHR/chr.yap +++ b/CHR/chr.yap @@ -312,8 +312,6 @@ notify_constrained( [M|Ms], X) :- % Approximation because debug state might change between calls ... % -:- start_low_level_trace. - run_suspensions( Slots) :- getval( debug, State), ( State == off -> @@ -323,8 +321,6 @@ run_suspensions( Slots) :- ), true. -:- stop_low_level_trace. - run_suspensions_loop( []). run_suspensions_loop( [A|As]) :- arg( 1, A, Stack), diff --git a/pl/modules.yap b/pl/modules.yap index 92bc77c97..9e389cf1f 100644 --- a/pl/modules.yap +++ b/pl/modules.yap @@ -505,8 +505,8 @@ module(N) :- '$process_expanded_arg'(\+V, M, \+NV) :- !, '$process_expanded_arg'(V, M, NV). '$process_expanded_arg'(M:A, _, M:A) :- !. -'$process_expanded_arg'(G, _, G) :- - '$system_predicate'(G), !. +%'$process_expanded_arg'(G, _, G) :- +% '$system_predicate'(G), !. '$process_expanded_arg'(A, M, M:A). '$not_in_vars'(_,[]).