diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-13 11:43:57 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-13 11:43:57 -0400 |
| commit | 95d278b9b8e9c314541b8251a34a32fe6deeb896 (patch) | |
| tree | f0f262173a66272d9d91248844f2facc40cc65a2 /src/lacweb.grm | |
| parent | 3316f3c317e587a5fc2ecf38f061a72b48e3b94e (diff) | |
Starting with closure links
Diffstat (limited to 'src/lacweb.grm')
| -rw-r--r-- | src/lacweb.grm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm index 914f3551..2cc23e78 100644 --- a/src/lacweb.grm +++ b/src/lacweb.grm @@ -281,6 +281,7 @@ eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright)) | path (EVar path, s (pathleft, pathright)) | LBRACE rexp RBRACE (ERecord rexp, s (LBRACEleft, RBRACEright)) + | UNIT (ERecord [], s (UNITleft, UNITright)) | INT (EPrim (Prim.Int INT), s (INTleft, INTright)) | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright)) @@ -345,3 +346,4 @@ attr : SYMBOL EQ attrv ((CName (uppercaseFirst SYMBOL), s (SYMB attrv : INT (EPrim (Prim.Int INT), s (INTleft, INTright)) | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright)) | STRING (EPrim (Prim.String STRING), s (STRINGleft, STRINGright)) + | LBRACE eexp RBRACE (eexp) |