refactored adjectives in StemFin to get correct tags in tagged/

This commit is contained in:
aarne
2016-09-22 06:33:43 +00:00
parent 9c4cb67da8
commit 58df464c6a
5 changed files with 18 additions and 8 deletions
+3
View File
@@ -125,6 +125,9 @@ param
oper
SAdj = {s : SAForm => Str ; h : Harmony} ;
SAdjFull = {s : Degree => SAForm => Str ; h : Harmony} ;
sAdjFull2nforms : Degree -> SAdjFull -> NForm => Str = \d,a -> (snoun2nounSep {s = \\nc => a.s ! d ! sAN nc ; h = a.h}).s ;
snoun2sadj : SNoun -> SAdj = snoun2sadjComp True ;