Fix op/3 predicate operator_priority domain error

This commit is contained in:
Paulo Moura
2021-05-09 22:25:37 +01:00
parent 9b483d381f
commit c2e8cbb846

View File

@@ -1124,7 +1124,7 @@ list_of_op_atoms([]).
op_priority(Priority) :-
integer(Priority), !,
( ( 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
).