"Committed_by_peb"

This commit is contained in:
peb
2005-05-30 07:11:32 +00:00
parent 92007a3aaf
commit 5b4fe38de8
4 changed files with 24 additions and 7 deletions

View File

@@ -1,6 +1,8 @@
concrete FragmentNumber of FragmentAbstract = open FragmentResource in {
flags startcat= S;
lincat
N = { s : Num => Str };

View File

@@ -5,7 +5,7 @@ lincat S = {s1:Str; s2:AB => Str};
lin
f x = { s1 = x.s2 ! A;
f x = { s1 = [];
s2 = table{ y => variants{ x.s2 ! A; x.s1 ++ x.s2 ! y } } };
a = { s1 = "a" ++ variants{ "b"; "c" };