fix empty tries.

This commit is contained in:
Vítor Santos Costa 2012-05-17 09:56:49 +01:00
parent 06cd0c7414
commit d68ef3f5a1

View File

@ -29,6 +29,7 @@ extract_vars([], []).
extract_vars((_-V).MapList, V.Vs) :-
extract_vars(MapList, Vs).
complex_to_andor(empty, Map, Map, 0).
complex_to_andor([list(Els)], Map0, MapF, Tree) :- !,
complex_to_andor(Els, Map0, MapF, Tree).
complex_to_andor([El1,El2|Els], Map0, MapF, or(T1,T2)) :- !,