summaryrefslogtreecommitdiff
path: root/next-lib/src/english/ResEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/english/ResEng.gf')
-rw-r--r--next-lib/src/english/ResEng.gf14
1 files changed, 4 insertions, 10 deletions
diff --git a/next-lib/src/english/ResEng.gf b/next-lib/src/english/ResEng.gf
index b3f5f2071..f867d9197 100644
--- a/next-lib/src/english/ResEng.gf
+++ b/next-lib/src/english/ResEng.gf
@@ -148,21 +148,15 @@ resource ResEng = ParamX ** open Prelude in {
n = n
} ;
- mkPron : (i,me,my,mine : Str) -> Number -> Person -> Gender ->
- {s : Case => Str ; sp : Str ; a : Agr} =
- \i,me,my,mine,n,p,g -> {
- s = table {
+ mkNP : (i,me,my : Str) -> Number -> Person -> Gender ->
+ {s : Case => Str ; a : Agr} = \i,me,my,n,p,g ->
+ { s = table {
Nom => i ;
Acc => me ;
Gen => my
} ;
a = toAgr n p g ;
- sp = mine
- } ;
-
- mkNP : (i,me,my : Str) -> Number -> Person -> Gender ->
- {s : Case => Str ; a : Agr} =
- \i,me,my,n,p,g -> mkPron i me my me n p g ;
+ };
-- These functions cover many cases; full coverage inflectional patterns are
-- in $MorphoEng$.