summaryrefslogtreecommitdiff
path: root/src/urweb.grm
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-01-05 10:22:55 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-01-05 10:22:55 -0500
commit38803135d0ab33c5728595c9a7b787d88751765f (patch)
treed8dbbb510d6af4bdf77ba98ebc20d23eadaecd5f /src/urweb.grm
parent85bd2c1f3750a8a918b93815e3550b462b113de5 (diff)
Loosen parsing of multiplication
Diffstat (limited to 'src/urweb.grm')
-rw-r--r--src/urweb.grm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm
index 93ff7321..647c311e 100644
--- a/src/urweb.grm
+++ b/src/urweb.grm
@@ -959,7 +959,7 @@ eexp : eapps (eapps)
| MINUS eterm (native_unop ("neg", eterm, s (MINUSleft, etermright)))
| eexp PLUS eexp (native_op ("plus", eexp1, eexp2, s (eexp1left, eexp2right)))
| eexp MINUS eexp (native_op ("minus", eexp1, eexp2, s (eexp1left, eexp2right)))
- | eterm STAR eexp (native_op ("times", eterm, eexp, s (etermleft, eexpright)))
+ | eapps STAR eexp (native_op ("times", eapps, eexp, s (eappsleft, eexpright)))
| eexp DIVIDE eexp (native_op ("divide", eexp1, eexp2, s (eexp1left, eexp2right)))
| eexp MOD eexp (native_op ("mod", eexp1, eexp2, s (eexp1left, eexp2right)))