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

max op

This commit is contained in:
Vítor Santos Costa 2015-12-15 09:04:47 +00:00
parent 3eda5cf68a
commit a3a6386353
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pl/lists.yap
View File

@ -88,3 +88,4 @@ lists:delete([Head|List], Elem, [Head|Residue]) :-
:- set_prolog_flag(source, false). % disable source.
%

3
pl/utils.yap
View File

@ -61,9 +61,6 @@ a postfix operator.
'$check_op'(P,_,_,G) :-
P < 0, !,
'$do_error'(domain_error(operator_priority,P),G).
'$check_op'(P,_,_,G) :-
P > 1200, !,
'$do_error'(domain_error(operator_priority,P),G).
'$check_op'(_,T,_,G) :-
\+ atom(T), !,
'$do_error'(type_error(atom,T),G).