From f8cbfcca96eac4b8895499d0a6d10e08dd207477 Mon Sep 17 00:00:00 2001
From: Julia Jansson <julia.jansson@gmail.com>
Date: Sun, 19 Apr 2020 18:52:25 +0200
Subject: [PATCH] Changes in regNoun

---
 src/hungarian/NounMorphoHun.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf
index 39858249a..7ed7a630e 100644
--- a/src/hungarian/NounMorphoHun.gf
+++ b/src/hungarian/NounMorphoHun.gf
@@ -91,7 +91,10 @@ oper
 
   -- regNoun is a /smart paradigm/: it takes one or a couple of forms,
   -- and decides which (non-smart) paradigm is the most likely to match.
---  regNounNomAcc : (nom : Str) -> (acc : Str) -> Noun = n, a -> mkNoun n ;
+regNounNomAcc : (nom : Str) -> (acc : Str) -> Noun = n, a ->
+let lastNom = last n ;
+    lastAccShort = shorten (last (init a)) ;
+in ifTok Noun lastNom lastAccShort (dAlma n a) (mkNoun n) ;
 
 --  regNounNomAcc n a | (last n) == shorten (last (init a)) = dAlma n a