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

Merge pull request #92 from odanoburu/invarA

Browse Source 
(Eng) fix missing paradigm invarA
This commit is contained in:
Inari Listenmaa
2018-12-05 10:06:09 +02:00
committed by GitHub
parent 994e0482bc aec24a3901
commit 78cac3725a
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/english/ParadigmsEng.gf
View File

@@ -454,6 +454,9 @@ mkInterj : Str -> Interj
mkOrd : Str -> Ord = \x -> lin Ord { s = regGenitiveS x};
invarA : Str -> A ;
invarA a = mkAdjective a a a a ;
mk2A a b = mkAdjective a a a b ;
regA a = case a of {
_ + ("a" | "e" | "i" | "o" | "u" | "y") + ? + _ +