check that F in needs_bracketing/2 is an atom
This commit is contained in:
@@ -208,6 +208,7 @@ needs_bracketing(Value, Op) :-
|
|||||||
nonvar(Value),
|
nonvar(Value),
|
||||||
\+ integer(Value),
|
\+ integer(Value),
|
||||||
functor(Value, F, Arity),
|
functor(Value, F, Arity),
|
||||||
|
atom(F),
|
||||||
current_op(FPrec, FSpec, F),
|
current_op(FPrec, FSpec, F),
|
||||||
current_op(EqPrec, EqSpec, Op),
|
current_op(EqPrec, EqSpec, Op),
|
||||||
arity_specifier(Arity, FSpec),
|
arity_specifier(Arity, FSpec),
|
||||||
|
|||||||
Reference in New Issue
Block a user