GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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
} ;