allow compound nouns with dash

This commit is contained in:
Krasimir Angelov
2018-08-24 10:53:38 +02:00
parent 07b99f455f
commit 1e3e42e308

View File

@@ -251,7 +251,8 @@ concrete ExtendEng of Extend =
SlashBareV2S v s = insertExtrac s.s (predVc v) ;
CompoundN noun cn = {
s = \\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c ;
s = variants {\\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c ;
\\n,c => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ cn.s ! n ! c} ;
g = cn.g
} ;