msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

parad fixes

Browse Source
This commit is contained in:
aarne
2004-08-27 15:21:09 +00:00
parent 42e8522757
commit eb83ed3743
2 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-0.6/english/ParadigmsEng.gf
View File

@@ -237,7 +237,7 @@ oper
apReg = \s -> AdjP1 (mkAdj1 s) ;
aGen : Str -> AdjDeg = \s -> case last s of {
"y" => mkAdjDeg s (init s ++ "ier") (init s + "iest") ;
"y" => mkAdjDeg s (init s + "ier") (init s + "iest") ;
"e" => mkAdjDeg s (s + "r") (s + "st") ;
_ => aReg s
} ;