allow compound nouns with dash
This commit is contained in:
1 parent
07b99f455f
commit
1e3e42e308
1 file changed
+3
-2
@@ -251,10 +251,11 @@ 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
|
||||
} ;
|
||||
|
||||
|
||||
CompoundAP noun adj = {
|
||||
s = variants {\\_ => noun.s ! Sg ! Nom ++ adj.s ! AAdj Posit Nom ;
|
||||
\\_ => noun.s ! Sg ! Nom ++ BIND++"-"++BIND ++ adj.s ! AAdj Posit Nom} ;
|
||||
|
||||
Reference in new issue
Block a user