diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix true messages.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/boot.yap
View File

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

2
pl/checker.yap
View File

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