added abstract to paths in Parse* to make them find Constructions and Documentation

lib/src/abstract/Lang.gf

@@ -8,8 +8,8 @@
 abstract Lang = 
   Grammar, 
   Lexicon
-  ,Construction  --- can be compiled here, but not in concretes, as they call Syntax and Grammar
+--  ,Construction  --- could be compiled here, but not in concretes, as they call Syntax and Grammar
-  ,Documentation
+--  ,Documentation
   ** {
   flags startcat=Phr ;
   } ;

lib/src/bulgarian/ParseBul.gf

@@ -1,4 +1,4 @@
---# -path=alltenses:../english
+--# -path=alltenses:../english:../abstract
 concrete ParseBul of ParseEngAbs = 
   TenseX - [IAdv, CAdv],
   CatBul,

lib/src/chinese/ParseChi.gf

@@ -1,4 +1,5 @@
---# -path=.:../english
+--# -path=.:../english:../abstract
+
 concrete ParseChi of ParseEngAbs = 
   TenseChi,
 ---  CatChi,

lib/src/english/ParseEng.gf

@@ -1,3 +1,5 @@
+--# -path=.:../abstract
+
 concrete ParseEng of ParseEngAbs = 
   TenseX - [Pol, PNeg, PPos],
   CatEng,

lib/src/french/ParseFre.gf

@@ -1,4 +1,4 @@
---# -path=.:../english/:../romance:alltenses
+--# -path=.:../english/:../abstract:../romance:alltenses
 concrete ParseFre of ParseEngAbs = 
   TenseFre,
 --  CatFre,

lib/src/german/ParseGer.gf

@@ -1,4 +1,4 @@
---# -path=alltenses:.:../english
+--# -path=alltenses:.:../english:../abstract
 concrete ParseGer of ParseEngAbs = 
   TenseGer,
   NounGer - [PPartNP],

lib/src/swedish/ParseSwe.gf

@@ -1,4 +1,4 @@
---# -path=.:../english/:../scandinavian:alltenses
+--# -path=.:../english/:../scandinavian:alltenses:../abstract
 concrete ParseSwe of ParseEngAbs = 
   TenseSwe,
   NounSwe - [PPartNP],
@@ -40,20 +40,21 @@ lin
 -}
 
   CompoundCN num noun cn = {
-      s = \\n,d,c => noun.s ! num.n ! Indef ! Nom ++ BIND ++ cn.s ! n ! d ! c ; 
+      s = \\n,d,c => num.s ! cn.g ++ noun.co ++ BIND ++ cn.s ! n ! d ! c ; 
       g = cn.g ;
       isMod = False
       } ;
 
   DashCN noun1 noun2 = {
-    s = \\n,d,c => noun1.s ! Sg ! Indef ! Nom ++ BIND ++ noun2.s ! n ! d ! c ;
+      s = \\n,d,c => noun1.co ++ BIND ++ noun2.s ! n ! d ! c ; 
-    g = noun2.g ;
+      g = noun2.g ;
-    isMod = False ;
+      co = noun1.co ++ BIND ++ noun2.co ---- add s if not already there
-  } ;
+      } ;
 
   GerundN v = {
     s = \\n,d,c => v.s ! VI (VPtPres n d c) ;
-    g = Neutr
+    g = Neutr ;
+    co = v.s ! VI (VPtPres Sg Indef Nom) ;
   } ;
   
   GerundAP v = {