forked from GitHub/gf-core
removed bogus "om" from Dut infinitives; fixed "wrong" in Chi
This commit is contained in:
@@ -21,7 +21,7 @@ lin
|
|||||||
weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;
|
weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;
|
||||||
|
|
||||||
is_right_VP = mkVP (ParadigmsChi.mkA "对") ;
|
is_right_VP = mkVP (ParadigmsChi.mkA "对") ;
|
||||||
is_wrong_VP = mkVP (ParadigmsChi.mkV "错") ;
|
is_wrong_VP = mkVP (ParadigmsChi.mkA "错") ;
|
||||||
|
|
||||||
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; ----
|
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ; ----
|
||||||
|
|
||||||
|
|||||||
@@ -654,7 +654,7 @@ param
|
|||||||
|
|
||||||
useInfVP : Bool -> VP -> Str = \isAux,vp ->
|
useInfVP : Bool -> VP -> Str = \isAux,vp ->
|
||||||
let vpi = infVP isAux vp in
|
let vpi = infVP isAux vp in
|
||||||
"om" ++ vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ; -- TODO
|
vpi.p1 ! agrP3 Sg ++ vpi.p3 ++ vpi.p2 ; -- TODO
|
||||||
|
|
||||||
reflPron : Agr => Str = table {
|
reflPron : Agr => Str = table {
|
||||||
{n = Sg ; p = P1} => "me" ;
|
{n = Sg ; p = P1} => "me" ;
|
||||||
|
|||||||
Reference in New Issue
Block a user