diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-31 13:08:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-31 13:08:57 -0400 |
| commit | d668886a45158cf3a292fdef3fa81498efd77652 (patch) | |
| tree | 8b94f33c7f9d49dfb2a8b7b65cee62097fcf9630 /src/lacweb.grm | |
| parent | 183c43eb783edd68f76f941fa61b6ef1f8752a56 (diff) | |
Elaborating record patterns
Diffstat (limited to 'src/lacweb.grm')
| -rw-r--r-- | src/lacweb.grm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm index a1067aa6..cc68d380 100644 --- a/src/lacweb.grm +++ b/src/lacweb.grm @@ -356,9 +356,9 @@ pterm : SYMBOL (PVar SYMBOL, s (SYMBOLleft, SYMBOLright | UNIT (PRecord ([], false), s (UNITleft, UNITright)) | LBRACE rpat RBRACE (PRecord rpat, s (LBRACEleft, RBRACEright)) -rpat : STRING EQ pat ([(STRING, pat)], false) +rpat : CSYMBOL EQ pat ([(CSYMBOL, pat)], false) | DOTDOTDOT ([], true) - | STRING EQ pat COMMA rpat ((STRING, pat) :: #1 rpat, #2 rpat) + | CSYMBOL EQ pat COMMA rpat ((CSYMBOL, pat) :: #1 rpat, #2 rpat) rexp : ([]) | ident EQ eexp ([(ident, eexp)]) |