From 29e46f29cff8bde547a895a307ceb52977dc0396 Mon Sep 17 00:00:00 2001
From: Julia Jansson <julia.jansson@gmail.com>
Date: Tue, 31 Mar 2020 20:07:56 +0200
Subject: [PATCH] =?UTF-8?q?Improvements=20in=20l=C3=B3=20case,=20still=20p?=
 =?UTF-8?q?roblematic=20for=20k=C5=91=20though?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/hungarian/NounMorphoHun.gf | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf
index d5173ecf..93ca735d 100644
--- a/src/hungarian/NounMorphoHun.gf
+++ b/src/hungarian/NounMorphoHun.gf
@@ -48,15 +48,20 @@ oper
      in mkNoun sör ;
 
   --Handles words like "ló, kő" which are "lovak, kövek" in plural
-  --TODO: not fixed, right now "lovok" and "kövök"
+  --TODO: "kövek" irregular? "kövekhöz" should be "kövekhez", but "kőhöz" is correct...
   dLó : Str -> Noun = \ló ->
     let lo = shorten ló ;
         lov = lo + "v" ;
-        nLov = mkNoun lov ;
+        a : Str = case ló of {
+          _ + ("ö" | "ő") => "e" ;
+          _ + ("o" | "ó") => "a" } ;
+        lova = lov + a ;
+        nLova = mkNoun lova ;
         nLó = mkNoun ló ;
     in {s = \\n,c => case <n,c> of {
+
                 -- All plural forms and Sg Acc use the "lov" stem
-                <Pl,_>|<Sg,Acc> => nLov.s ! n ! c ;
+                <Pl,_>|<Sg,Acc> => nLova.s ! n ! c ;
 
                 -- The rest of the forms are formed with the regular constructor,
                 -- using "ló" as the stem.