rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

shorten needs_bracketing/2

Browse Source
This commit is contained in:
Markus Triska
2023-06-30 18:01:54 +02:00
parent 28065b0565
commit bfe808a779
1 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/toplevel.pl
View File

@@ -211,16 +211,12 @@ needs_bracketing(Value, Op) :-
current_op(FPrec, FSpec, F),
current_op(EqPrec, EqSpec, Op),
arity_specifier(Arity, FSpec),
( Arity =:= 0 ->
true
; EqPrec < FPrec ->
true
; FPrec > 0, F == Value, graphic_token_char(F) ->
true
; F \== '.', '$quoted_token'(F) ->
true
; EqPrec == FPrec,
memberchk(EqSpec, [fx,xfx,yfx])
( Arity =:= 0
; EqPrec < FPrec
; FPrec > 0, F == Value, graphic_token_char(F)
; F \== '.', '$quoted_token'(F)
; EqPrec =:= FPrec,
member(EqSpec, [fx,xfx,yfx])
).
arity_specifier(0, _).