diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-03-27 20:54:49 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-03-27 20:54:49 +0000 |
| commit | fd518ed2a3fe50238e0e9e7947e33cc9d5de9bce (patch) | |
| tree | 384d4e0a74cd0019dbf20394f2eeb9b83b24b1cc /devel/compiler/Src.cf | |
| parent | 7c30d211c3eda504668c0eab51e99d6e52db2127 (diff) | |
primitive pattern matching
Diffstat (limited to 'devel/compiler/Src.cf')
| -rw-r--r-- | devel/compiler/Src.cf | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/devel/compiler/Src.cf b/devel/compiler/Src.cf index ccf9ec04b..d3b29ee45 100644 --- a/devel/compiler/Src.cf +++ b/devel/compiler/Src.cf @@ -34,8 +34,7 @@ ERec. Exp2 ::= "{" [Assign] "}" ; EApp. Exp1 ::= Exp1 Exp2 ; ESel. Exp1 ::= Exp1 "!" Exp2 ; EPro. Exp1 ::= Exp1 "." Exp2 ; -ETab. Exp1 ::= "table" "{" [Case] "}" ; -ETbv. Exp1 ::= "table" "(" Type ")" "{" [Exp] "}" ; +ETab. Exp1 ::= "table" Type "{" [Case] "}" ; ECat. Exp ::= Exp "++" Exp1 ; EAbs. Exp ::= "\\" Ident "->" Exp ; |