From e04956a42d488cdff6209a392211b89c6ef64b3e Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Mon, 30 May 2005 07:11:32 +0000
Subject: "Committed_by_peb"

---
 grammars/ljung/thesis/FragmentNumber.gf | 2 ++
 grammars/ljung/variants/TestVars.gf     | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'grammars')

diff --git a/grammars/ljung/thesis/FragmentNumber.gf b/grammars/ljung/thesis/FragmentNumber.gf
index 82829d0d1..dafe9a2b7 100644
--- a/grammars/ljung/thesis/FragmentNumber.gf
+++ b/grammars/ljung/thesis/FragmentNumber.gf
@@ -1,6 +1,8 @@
 
 concrete FragmentNumber of FragmentAbstract = open FragmentResource in {
 
+flags startcat= S;
+
 lincat 
 
 N  = { s : Num => Str };
diff --git a/grammars/ljung/variants/TestVars.gf b/grammars/ljung/variants/TestVars.gf
index 53600c48c..ce0073f8f 100644
--- a/grammars/ljung/variants/TestVars.gf
+++ b/grammars/ljung/variants/TestVars.gf
@@ -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" }; 
-- 
cgit v1.2.3