From 219b3a2c0115f81a98f88e85cac59c94170843c0 Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Wed, 29 Apr 2020 15:05:24 +0200
Subject: [PATCH] (Cze) Remove calls to Predef.error and just do something
 stupid instead.

---
 src/czech/ParadigmsCze.gf | 6 +++---
 src/czech/ResCze.gf       | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/czech/ParadigmsCze.gf b/src/czech/ParadigmsCze.gf
index 2f0a7bb0..2c850d5e 100644
--- a/src/czech/ParadigmsCze.gf
+++ b/src/czech/ParadigmsCze.gf
@@ -61,7 +61,7 @@ oper
     = \s -> lin N (declMESTO s) ;
   muzN : Str -> N
     = \s -> lin N (declMUZ s) ;
-  soudceN : Str -> N    -- default ** {sdat,sloc = +i ; pnom = +i}  
+  soudceN : Str -> N    -- default ** {sdat,sloc = +i ; pnom = +i}
     = \s -> lin N (declSOUDCE s) ;
   strojN : Str -> N
     = \s -> lin N (declSTROJ s) ;
@@ -97,7 +97,7 @@ oper
         _ + "í"  => jarniAdjForms s ;
         _ + "ův" => otcuvAdjForms s ;
         _ + "in" => matcinAdjForms s ;
-        _ => Predef.error ("no mkA for" ++ s)
+        _ => matcinAdjForms s -- Predef.error ("no mkA for" ++ s)
         }) ;
     } ;
 
@@ -133,7 +133,7 @@ oper
 
   mkPrep : Str -> Case -> Prep
     = \s,c -> lin Prep {s = s ; c = c ; hasPrep = True} ; ---- True if s /= ""
-    
+
   mkConj : Str -> Conj
     = \s -> lin Conj {s1 = [] ; s2 = s} ;
 
diff --git a/src/czech/ResCze.gf b/src/czech/ResCze.gf
index f683a2ab..b065aaca 100644
--- a/src/czech/ResCze.gf
+++ b/src/czech/ResCze.gf
@@ -86,7 +86,7 @@ oper
     ul  + "ice" => ul + "ic" ;
     koleg + "yně" => koleg + "yň" ;
     ruz + "e" => ruz + "í" ;
-    _ => Predef.error ("shortFemPlGen does not apply to" ++ s)
+    _ => s -- Predef.error ("shortFemPlGen does not apply to" ++ s)
     } ;
 
 ---------------
@@ -155,7 +155,7 @@ oper
       <Neutr,       _ + "e"           , _+"ete"> => declKURE ;
       <Neutr,       _ + "e"           , _ + "e"> => declMORE ;
       <Neutr,       _ + "í"           , _ + "í"> => declSTAVENI ;
-      _ => Predef.error ("cannot infer declension type for" ++ nom ++ gen)
+      _ => declSTAVENI -- Predef.error ("cannot infer declension type for" ++ nom ++ gen)
       }
     in decl nom ;
 
@@ -172,7 +172,7 @@ oper
       _ + "ce"           => declSOUDCE s ;
       _ + "e"            => declMORE s ;
       _ + "í"            => declSTAVENI s ;
-      _ => Predef.error ("cannot guess declension type for" ++ s)
+      _ => declSTAVENI s -- Predef.error ("cannot guess declension type for" ++ s)
       } ;
 
 -- the traditional declensions, in both CEG and Wiki