From aec24a390162c24a5506ee566bca26d2fe16841f Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Wed, 5 Dec 2018 09:51:10 +0200
Subject: [PATCH] (Eng) fix missing paradigm invarA

---
 src/english/ParadigmsEng.gf | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 1a56707b..c6fcd2b9 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -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") + ? + _ +