forked from GitHub/gf-rgl
fix a paradigm
This commit is contained in:
@@ -130,10 +130,15 @@ oper
|
|||||||
case chel of {
|
case chel of {
|
||||||
pas+"úë" => pas+"ë";
|
pas+"úë" => pas+"ë";
|
||||||
_ => chel
|
_ => chel
|
||||||
|
} ;
|
||||||
|
chel2 : Str =
|
||||||
|
case chel of {
|
||||||
|
w+"ëÿçúë" => w+"ëåçë";
|
||||||
|
_ => chel
|
||||||
}
|
}
|
||||||
in (mkAdjective chel
|
in (mkAdjective chel
|
||||||
(chel+"èÿ")
|
(chel2+"èÿ")
|
||||||
(chel+"èÿò")
|
(chel2+"èÿò")
|
||||||
(chel1+"a")
|
(chel1+"a")
|
||||||
(chel1+"àòà")
|
(chel1+"àòà")
|
||||||
(chel1+"î")
|
(chel1+"î")
|
||||||
|
|||||||
@@ -1536,7 +1536,7 @@ oper
|
|||||||
(v0+"ĺçĺő")
|
(v0+"ĺçĺő")
|
||||||
(v0+"˙çúë")
|
(v0+"˙çúë")
|
||||||
(v0+"ĺçĺë")
|
(v0+"ĺçĺë")
|
||||||
(v0+"-")
|
(v0+"-")
|
||||||
(v0+"čçŕů")
|
(v0+"čçŕů")
|
||||||
(v0+"ĺç")
|
(v0+"ĺç")
|
||||||
(v0+"ĺçĺíĺ") ;
|
(v0+"ĺçĺíĺ") ;
|
||||||
|
|||||||
Reference in New Issue
Block a user