small fixes in Est translation and app.probs

2026-09-03 17:57:04 -06:00 · 2015-11-09 12:44:19 +00:00
parent 58e9855ba7
commit 651e1de4f3
2 changed files with 10 additions and 9 deletions
@@ -49,12 +49,13 @@ lin
                h = v.h ; p = v.p
               }
         ) ;
+-}

-  CompoundN noun cn = {
-    s = \\nf => noun.s ! 10 ++ BIND ++ cn.s ! nf ;
-    h = cn.h
+  CompoundN noun cn = lin N {
+    s = \\nf => noun.s ! NCase Sg Gen ++ BIND ++ cn.s ! nf ---- AR genitive best?
    } ;

+{-
  CompoundAP  noun adj = {
    s = \\_ => (snoun2nounSep {s = \\f => noun.s ! 10 ++ BIND ++ adj.s ! Posit ! sAN f ; h = adj.h}).s
    } ;