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

parad fixes

Browse Source
This commit is contained in:
aarne committed 2004-08-27 15:21:09 +00:00
1 parent 351956e6d1
commit 1ad8ce57b5
2 files changed
+17 -1
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

resource-0.6/english/ParadigmsEng.gf
+1 -1
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
} ;