From 6fd918256ec02293580d2c3545b6effba9d72f87 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 12 Mar 2013 20:29:31 +0000
Subject: [PATCH] case endings in Fin symbols: Nom is a special case, since
 there is no ending

---
 src/finnish/MorphoFin.gf | 8 ++++++++
 src/finnish/SymbolFin.gf | 6 +++---
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/src/finnish/MorphoFin.gf b/src/finnish/MorphoFin.gf
index 3117e8b2b..08c9843e7 100644
--- a/src/finnish/MorphoFin.gf
+++ b/src/finnish/MorphoFin.gf
@@ -966,5 +966,13 @@ oper
       Abess  => "tta"
       } ;
 
+  bindIf : Case -> Str = \c -> case c of {
+    Nom => [] ;
+    _ => BIND
+    } ;
+  bindColonIf : Case -> Str = \c -> case c of {
+    Nom => [] ;
+    _ => BIND ++ ":" ++ BIND
+    } ;
 
 }
diff --git a/src/finnish/SymbolFin.gf b/src/finnish/SymbolFin.gf
index 2409570cf..d3c5d9c4b 100644
--- a/src/finnish/SymbolFin.gf
+++ b/src/finnish/SymbolFin.gf
@@ -3,9 +3,9 @@
 concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin, MorphoFin in {
 
 lin
-  SymbPN i = {s = \\c => i.s ++ BIND ++ defaultCaseEnding c} ; --- c
-  IntPN i  = {s = \\c => i.s ++ BIND ++ ":" ++ BIND ++ defaultCaseEnding c} ; --- c
-  FloatPN i  = {s = \\c => i.s ++ BIND ++ ":" ++ BIND ++ defaultCaseEnding c} ; --- c
+  SymbPN i = {s = \\c => i.s ++ bindIf c ++ defaultCaseEnding c} ; --- c
+  IntPN i  = {s = \\c => i.s ++ bindColonIf c ++ defaultCaseEnding c} ; --- c
+  FloatPN i  = {s = \\c => i.s ++ bindColonIf c ++ defaultCaseEnding c} ; --- c
   NumPN i  = {s = \\c => i.s!Sg!Nom } ; --- c
 
   CNIntNP cn i = {