specially handle commas

This commit is contained in:
Mark Thom
2019-03-30 21:31:57 -06:00
parent 0aefcf7eae
commit 3e67400bd3
4 changed files with 8 additions and 4 deletions

View File

@@ -718,8 +718,8 @@ op_specifier(OpSpec) :- atom(OpSpec),
op_specifier(OpSpec) :- throw(error(type_error(atom, OpSpec), op/3)).
valid_op(Op) :- atom(Op),
( Op \== ',' -> true
; throw(error(permission_error(modify, operator, ','), op/3)) % 8.14.3.3 j), k).
( Op \== (,) -> true
; throw(error(permission_error(modify, operator, (,)), op/3)) % 8.14.3.3 j), k).
).
op_(Priority, OpSpec, Op) :- '$op'(Priority, OpSpec, Op).