fix reporting state of unknown flag (obs from Paulo Moura).

This commit is contained in:
Vitor Santos Costa 2009-05-06 09:33:13 -05:00
parent 0cd9009132
commit 7d37428f36
1 changed files with 2 additions and 2 deletions

View File

@ -372,8 +372,8 @@ unknown(V0,V) :-
'$ask_unknown_flag'(Old) :-
recorded('$unknown','$unkonwn'(_,MyOld),_), !,
'$cleanup_unknwon_handler'(MyOld,Old).
recorded('$unknown','$unknown'(_,MyOld),_), !,
'$cleanup_unknown_handler'(MyOld,Old).
'$ask_unknown_flag'(fail).
'$cleanup_unknown_handler'('$unknown_error'(_),error) :- !.