Merge pull request #942 from pmoura/fix_op_3_predicate_operator_priority_domain_error
Fix op/3 predicate operator_priority domain error
This commit is contained in:
@@ -1124,7 +1124,7 @@ list_of_op_atoms([]).
|
|||||||
op_priority(Priority) :-
|
op_priority(Priority) :-
|
||||||
integer(Priority), !,
|
integer(Priority), !,
|
||||||
( ( Priority < 0 ; Priority > 1200 ) ->
|
( ( Priority < 0 ; Priority > 1200 ) ->
|
||||||
throw(error(domain_error(operator_priority, Priority))) % 8.14.3.3 h)
|
throw(error(domain_error(operator_priority, Priority), op/3)) % 8.14.3.3 h)
|
||||||
; true
|
; true
|
||||||
).
|
).
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user