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

++ -> +

Browse Source
This commit is contained in:
aarne
2004-05-19 08:02:14 +00:00
parent 0232a283a9
commit fa7989b42d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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