1
0
forked from GitHub/gf-rgl

(Som) Small bugfixes in RelCN and PartNP

This commit is contained in:
Inari Listenmaa
2019-09-27 17:53:57 +02:00
parent 096115c35f
commit b8b43689bc

View File

@@ -277,9 +277,7 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
cn.mod ! st ! n ! Abs
++ andConj st cn.modtype
++ rs.s ! st ! gennum cn Sg ! c ; -- gennum cn Sg, because plural form is only for 1st person plural
modtype = case cn.modtype of {
AMod => AMod ;
_ => OtherMod }
modtype = AMod
} ;
{-
@@ -317,7 +315,7 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
mod = \\st,n,c =>
cn.mod ! st ! n ! c
++ andConj st cn.modtype -- If the sentence is already modified, any new modifier needs to be introduced with conjunction
++ np.s ! Abs
++ objpron np ! Abs
++ "ah" ;
modtype = case cn.modtype of {
AMod => AMod ;