diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-05-28 12:07:05 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-28 12:07:05 -0400 |
commit | a735f6ea0ef8ec5895dfe7f895f89ee8c126de14 (patch) | |
tree | 702dbe43701e15a37f7811983aad78e069812704 /src/urweb.grm | |
parent | 43cd4231dea11d2cbb0151f144e4a98c618df396 (diff) |
Destructing local let, to the point where demo compiles
Diffstat (limited to 'src/urweb.grm')
-rw-r--r-- | src/urweb.grm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index 0d2c1d47..8cdf8063 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -1167,7 +1167,7 @@ eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright)) edecls : ([]) | edecl edecls (edecl :: edecls) -edecl : VAL vali ((EDVal vali, s (VALleft, valiright))) +edecl : VAL pat EQ eexp ((EDVal (pat, eexp), s (VALleft, eexpright))) | VAL REC valis ((EDValRec valis, s (VALleft, valisright))) | FUN valis ((EDValRec valis, s (FUNleft, valisright))) |