a couple of fixes in Ger

2013-04-05 08:38:13 +00:00
parent 6ee959de86
commit d6cfd33c16
4 changed files with 12 additions and 6 deletions
--- a/lib/src/german/ParseGer.gf
+++ b/lib/src/german/ParseGer.gf
@@ -69,17 +69,18 @@ lin
    g = cn.g
  } ;

-{-
+
  DashCN noun1 noun2 = { -- type-checking
-    s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ;
+    s = \\n,c => glue (noun1.s ! Sg ! Nom) (noun2.s ! n ! c) ;
    g = noun2.g
  } ;

  GerundN v = { -- parsing
-    s = \\n,c => v.s ! VPresPart ;
+    s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
    g = Neutr
  } ;
-  
+
+{-  
  GerundAP v = {  -- beckoning
    s = \\agr => v.s ! VPresPart ;
    isPre = True