fixed Scandinavian bugs in exx-resource

2008-06-20 20:42:26 +00:00
parent 2f8a83b883
commit 23793d3353
24 changed files with 101 additions and 92 deletions
--- a/lib/resource-1.4/scandinavian/SentenceScand.gf
+++ b/lib/resource-1.4/scandinavian/SentenceScand.gf
@@ -1,5 +1,5 @@
 incomplete concrete SentenceScand of Sentence = 
-  CatScand ** open CommonScand, ResScand in {
+  CatScand ** open CommonScand, ResScand, Prelude in {

  flags optimize=all_subs ;

@@ -28,7 +28,7 @@ incomplete concrete SentenceScand of Sentence =
      c2 = slash.c2
    } ;

-    SlashPrep cl prep = cl ** {c2 = prep.s} ;
+    SlashPrep cl prep = cl ** {c2 = {s = prep.s ; hasPrep = True}} ;

    SlashVS np vs slash = 
      mkClause