diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-08-25 13:57:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-08-25 13:57:56 -0400 |
| commit | 7c866487f8ab0dd9b9c73bee013c18805a0c4489 (patch) | |
| tree | eccb7d719d3ca507893680773971963313bd56c2 /src/urweb.grm | |
| parent | dadc173e9a2d4f130a573f59adce2e386901c18d (diff) | |
grid1 compiles but gets stuck in JS
Diffstat (limited to 'src/urweb.grm')
| -rw-r--r-- | src/urweb.grm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index b954ba8c..37a74e5a 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -1087,6 +1087,13 @@ eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright)) (EField (e, ident), loc)) (EVar (#1 path, #2 path, Infer), s (pathleft, pathright)) idents end) + | LPAREN eexp RPAREN DOT idents (let + val loc = s (LPARENleft, identsright) + in + foldl (fn (ident, e) => + (EField (e, ident), loc)) + eexp idents + end) | AT path DOT idents (let val loc = s (ATleft, identsright) in |