Mercurial > urweb
comparison src/urweb.grm @ 1420:146b69c53304
Allow negative int patterns
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 03 Feb 2011 11:12:48 -0500 |
parents | 5f4fee8a4dcd |
children | 7f6ac9f33d4d |
comparison
equal
deleted
inserted
replaced
1419:00b79f39be25 | 1420:146b69c53304 |
---|---|
1321 | 1321 |
1322 pterm : SYMBOL (PVar SYMBOL, s (SYMBOLleft, SYMBOLright)) | 1322 pterm : SYMBOL (PVar SYMBOL, s (SYMBOLleft, SYMBOLright)) |
1323 | cpath (PCon (#1 cpath, #2 cpath, NONE), s (cpathleft, cpathright)) | 1323 | cpath (PCon (#1 cpath, #2 cpath, NONE), s (cpathleft, cpathright)) |
1324 | UNDER (PWild, s (UNDERleft, UNDERright)) | 1324 | UNDER (PWild, s (UNDERleft, UNDERright)) |
1325 | INT (PPrim (Prim.Int INT), s (INTleft, INTright)) | 1325 | INT (PPrim (Prim.Int INT), s (INTleft, INTright)) |
1326 | MINUS INT (PPrim (Prim.Int (~INT)), s (MINUSleft, INTright)) | |
1326 | STRING (PPrim (Prim.String STRING), s (STRINGleft, STRINGright)) | 1327 | STRING (PPrim (Prim.String STRING), s (STRINGleft, STRINGright)) |
1327 | CHAR (PPrim (Prim.Char CHAR), s (CHARleft, CHARright)) | 1328 | CHAR (PPrim (Prim.Char CHAR), s (CHARleft, CHARright)) |
1328 | LPAREN pat RPAREN (pat) | 1329 | LPAREN pat RPAREN (pat) |
1329 | LBRACE RBRACE (PRecord ([], false), s (LBRACEleft, RBRACEright)) | 1330 | LBRACE RBRACE (PRecord ([], false), s (LBRACEleft, RBRACEright)) |
1330 | UNIT (PRecord ([], false), s (UNITleft, UNITright)) | 1331 | UNIT (PRecord ([], false), s (UNITleft, UNITright)) |