a majour refactoring to support clitic pronouns

2018-07-04 13:01:06 +02:00
parent 00476ae386
commit 7bfd6199d6
2 changed files with 2 additions and 2 deletions
@@ -142,7 +142,7 @@ concrete WordsBul of Words = SentencesBul **
    ALike p item = mkCl p.name (dirV2 (actionV (mkV186 "харесвам") (mkV186 "харесам"))) item ;
    ALive p co = mkCl p.name (mkVP (mkVP (stateV (mkV160 "живея"))) (SyntaxBul.mkAdv in_Prep (mkNP co))) ;
    ALove p q = mkCl p.name (dirV2 (actionV (mkV186 "обичам") (mkV152 "обикна"))) q.name ;
-    AMarried p = mkCl p.name (mkA076 (case p.name.a.gn of {
+    AMarried p = mkCl p.name (mkA076 (case p.name.gn of {
                                        R.GSg R.Fem => "омъжен" ;
                                        _           => "женен"
                                      })) ;