corrected some incorrect inflections in LexiconEng

This commit is contained in:
aarne
2010-03-29 16:00:04 +00:00
parent f6f09b401e
commit 8052652c4e
2 changed files with 5 additions and 4 deletions

View File

@@ -450,6 +450,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
_ => duplFinal happy + "e"
} ;
happily : Str = case happy of {
_ + "ble" => init happy + "y" ;
_ + "y" => happ + "ily" ;
_ + "ll" => happy + "y" ;
_ => happy + "ly"