diff options
| author | aarne <unknown> | 2003-11-10 08:17:22 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-10 08:17:22 +0000 |
| commit | d8e07f189a6c825b9ced62e38c3fc2ec6c6c5f67 (patch) | |
| tree | bfaa164f35a68ee9aadc29eaffdd10dc14ac5e80 /src | |
| parent | 249d506f58a8b5f8ef87295ab3dde2d13ddd3885 (diff) | |
New let and where syntax.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Source/GF.cf | 2 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Source/GF.cf b/src/GF/Source/GF.cf index bb1d200cd..1edf8adb7 100644 --- a/src/GF/Source/GF.cf +++ b/src/GF/Source/GF.cf @@ -169,6 +169,8 @@ ETType. Exp ::= Exp1 "=>" Exp ; -- these are thus right associative EConcat. Exp ::= Exp1 "++" Exp ; EGlue. Exp ::= Exp1 "+" Exp ; ELet. Exp ::= "let" "{" [LocDef] "}" "in" Exp ; +ELetb. Exp ::= "let" [LocDef] "in" Exp ; +EWhere. Exp ::= Exp1 "where" "{" [LocDef] "}" ; EEqs. Exp ::= "fn" "{" [Equation] "}" ; coercions Exp 4 ; diff --git a/src/Today.hs b/src/Today.hs index 719a3da7d..854a5e9da 100644 --- a/src/Today.hs +++ b/src/Today.hs @@ -1 +1 @@ -module Today where today = "Mon Nov 10 09:43:09 CET 2003" +module Today where today = "Mon Nov 10 09:55:30 CET 2003" |