fix true messages.

This commit is contained in:
Vitor Santos Costa 2011-01-06 11:20:29 -06:00
parent 5c54ff89a1
commit 3900933694
2 changed files with 3 additions and 2 deletions

View File

@ -536,7 +536,8 @@ true :- true.
% end of YAPOR
'$query'(G,[]) :-
'$prompt_alternatives_on'(groundness), !,
'$prompt_alternatives_on'(OPT),
( OPT = groundness ; OPT = determinism), !,
'$yes_no'(G,(?-)).
'$query'(G,V) :-
(

View File

@ -149,7 +149,7 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
;
get_value('$syntaxcheckmultiple',on)
)),
recorded('$reconsulting',File,_),
nb_getval('$consulting_file',File),
'$xtract_head'(T,M,NM,_,F,A),
\+ (
% allow duplicates if we are not the last predicate to have