fix $when (obs from David Powers)

This commit is contained in:
Vítor Santos Costa 2010-09-30 20:48:13 +01:00
parent fa91fb6d86
commit 4ae92544b2

View File

@ -166,8 +166,8 @@ redo_freeze(Done, _, _) :- nonvar(Done), !.
%
% We still have some more conditions: continue the analysis.
%
redo_freeze(Done, _, '$when'(C, G, Done)) :- !,
'$when'(C, G, Done).
redo_freeze(Done, _, when(C, G, Done)) :- !,
when(C, G, Done).
%
% check if the variable was really bound