summaryrefslogtreecommitdiff
path: root/next-lib/src/english/MorphoEng.gf
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-11-18 15:30:53 +0000
committerbjorn <bjorn@bringert.net>2008-11-18 15:30:53 +0000
commitbd1417e21a12ebf3e9da96b4f02459fee259d676 (patch)
tree48d282d44f6daa54ebc172e7c5a0cbdb9804c5cc /next-lib/src/english/MorphoEng.gf
parentf3f29a46839d7e9ba97b56663a775bbf2d5453e4 (diff)
Added overloaded mkQuant to ParadigmsEng.
Diffstat (limited to 'next-lib/src/english/MorphoEng.gf')
-rw-r--r--next-lib/src/english/MorphoEng.gf7
1 files changed, 0 insertions, 7 deletions
diff --git a/next-lib/src/english/MorphoEng.gf b/next-lib/src/english/MorphoEng.gf
index fac049210..2025312df 100644
--- a/next-lib/src/english/MorphoEng.gf
+++ b/next-lib/src/english/MorphoEng.gf
@@ -21,13 +21,6 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
sp = regGenitiveS s ;
n = n} ;
- mkQuant : Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \sg,pl -> mkQuant4 sg pl sg pl ;
-
- mkQuant4 : Str -> Str -> Str -> Str -> {s : Bool => Number => Str; sp : Bool => Number => Case => Str } = \sg,pl,sg',pl' -> {
- s = \\_ => table { Sg => sg ; Pl => pl } ;
- sp = \\_ => table { Sg => regGenitiveS sg' ; Pl => regGenitiveS pl' }
- } ;
-
regGenitiveS : Str -> Case => Str = \s ->
table { Gen => genitiveS s; _ => s } ;