(Som) Fix bug in DetCN

This commit is contained in:
Inari Listenmaa
2019-08-28 14:14:26 +02:00
parent 7a6678d4f5
commit a80ec22a1c

View File

@@ -23,12 +23,11 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
-- If cn has modifier, Nom ending attaches to the modifier -- If cn has modifier, Nom ending attaches to the modifier
<_,Nom,True,_,_> => {nf=Def det.n ; c=Abs} ; <_,Nom,True,_,_> => {nf=Def det.n ; c=Abs} ;
-- Definite -- a Det with st=Indefinite uses Indef forms
<_,_,False,Definite,n> => {nf=Def n ; c=c} ; <_,_,_,Indefinite,n> => {nf=Indef n ; c=c} ;
<_,_,False,Indefinite,n> => {nf=Indef n ; c=c} ; -- All other determiners use the definite stem
_ => {nf=Def det.n ; c=c}
_ => {nf=Def det.n ; c=c} -- TODO check
} ; } ;
art = gda2da cn.gda ! det.n ; art = gda2da cn.gda ! det.n ;
num = case det.isNum of {True => Sg ; _ => det.n} ; num = case det.isNum of {True => Sg ; _ => det.n} ;