fix bad call to map_tree (obs from Paulo Moura).

This commit is contained in:
Vitor Santos Costa 2008-10-31 09:42:32 +00:00
parent e66e7c86bc
commit aca06e16fc

View File

@ -852,7 +852,7 @@ rb_partial_map(t(Nil,T0), Map, Goal, t(Nil,TF)) :-
partial_map(T0, Map, [], Nil, Goal, TF).
rb_partial_map(t(Nil,T0), Map, Map0, Goal, t(Nil,TF)) :-
rb_partial_map(T0, Map, Map0, Nil, Goal, TF).
partial_map(T0, Map, Map0, Nil, Goal, TF).
partial_map(T,[],[],_,_,T) :- !.
partial_map(black('',_,_,_),Map,Map,Nil,_,Nil) :- !.