msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

judgements lindef are now respected by both the parser and the linearizer

Browse Source
This commit is contained in:
krasimir
2009-12-11 17:39:18 +00:00
parent fc1d03f2f1
commit 7c2bce5779
4 changed files with 50 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
testsuite/runtime/linearize/TestCnc.gf
View File

@@ -1,7 +1,12 @@
concrete TestCnc of Test = {
lincat E,P = {s:Str} ;
param Number = Pl | Sg;
lincat E = {s:Str; n : Number} ;
lindef E = \s -> {s=s; n=Sg} ;
lincat P = {s:Str} ;
lin Exist f = {s = "exists" ++ f.$0 ++ "such that" ++ f.s};
lin Even x = {s = x.s ++ "is even"};
lin Even x = {s = x.s ++ case x.n of {Sg => "is"; Pl => "are"} ++ "even"};
}