diff options
Diffstat (limited to 'src/boot/parser.boot')
| -rw-r--r-- | src/boot/parser.boot | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index 107a355f..2962014a 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -651,11 +651,14 @@ bpReduce()== bpTimes()== bpReduce() or bpLeftAssoc('(TIMES SLASH),function bpExpt) + +bpEuclid() == + bpLeftAssoc('(QUO REM),function bpTimes) bpMinus()== - bpInfGeneric '(MINUS) and (bpTimes() or bpTrap()) + bpInfGeneric '(MINUS) and (bpEuclid() or bpTrap()) and bpPush(bfApplication(bpPop2(),bpPop1())) - or bpTimes() + or bpEuclid() bpArith()==bpLeftAssoc('(PLUS MINUS),function bpMinus) |