check that F in needs_bracketing/2 is an atom

2023-06-30 13:45:45 -06:00
parent 1620824d3a
commit caf84a259e
1 changed files with 1 additions and 0 deletions
--- a/src/toplevel.pl
+++ b/src/toplevel.pl
@@ -208,6 +208,7 @@ needs_bracketing(Value, Op) :-
    nonvar(Value),
    \+ integer(Value),
    functor(Value, F, Arity),
+    atom(F),
    current_op(FPrec, FSpec, F),
    current_op(EqPrec, EqSpec, Op),
    arity_specifier(Arity, FSpec),