From bed2d9068e3bd064342639de14a02b3d8cfa366a Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 30 Oct 2008 14:37:54 +0000
Subject: More English morphology clean-up.

---
 next-lib/src/english/ResEng.gf | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'next-lib/src/english/ResEng.gf')

diff --git a/next-lib/src/english/ResEng.gf b/next-lib/src/english/ResEng.gf
index f867d9197..f53ea21eb 100644
--- a/next-lib/src/english/ResEng.gf
+++ b/next-lib/src/english/ResEng.gf
@@ -158,18 +158,6 @@ resource ResEng = ParamX ** open Prelude in {
      a = toAgr n p g ;
    };
 
--- These functions cover many cases; full coverage inflectional patterns are
--- in $MorphoEng$.
-
-    regN : Str -> {s : Number => Case => Str} = \car ->
-      mkNoun car (car + "'s") (car + "s") (car + "s'") ;
-
-    regA : Str -> {s : AForm => Str} = \warm ->
-      mkAdjective warm (warm + "er") (warm + "est") (warm + "ly") ;
-
-    regV : Str -> Verb = \walk ->
-      mkVerb walk (walk + "s") (walk + "ed") (walk + "ed") (walk + "ing") ;
-
     regNP : Str -> Number -> {s : Case => Str ; a : Agr} = \that,n ->
       mkNP that that (that + "'s") n P3 Neutr ;
 
-- 
cgit v1.2.3