From 231b7be0c47db806aed1d7eae50e543eb0458280 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 13 Dec 2018 14:15:57 +0200
Subject: [PATCH] added ParadigmsEng.invarA

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

diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 1a56707b4..3aa7303cb 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -168,6 +168,7 @@ oper
     compoundA : A -> A ; -- force comparison with more/most
     simpleA   : A -> A ; -- force comparison with -er,-est
     irregAdv  : A -> Str -> A ;  -- adverb irreg, e.g. "fast"
+    invarA    : Str -> A ; -- adjective that does not vary in morphology
 
 --3 Two-place adjectives
 
@@ -654,6 +655,8 @@ mkInterj : Str -> Interj
       mkAdjective a b c d
     } ;
 
+  invarA s = mkAdjective s s s s ;
+
   compoundA = compoundADeg ;
   simpleA a = 
     let ad = (a.s ! AAdj Posit Nom)