cannot assume that meta-call argument is always a goal

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@256 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-02 23:39:10 +00:00
parent e722826047
commit 890556c30d
2 changed files with 2 additions and 6 deletions
--- 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),