diff options
| author | bjorn <bjorn@bringert.net> | 2008-11-18 15:30:53 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-11-18 15:30:53 +0000 |
| commit | bd1417e21a12ebf3e9da96b4f02459fee259d676 (patch) | |
| tree | 48d282d44f6daa54ebc172e7c5a0cbdb9804c5cc /next-lib/src/english/MorphoEng.gf | |
| parent | f3f29a46839d7e9ba97b56663a775bbf2d5453e4 (diff) | |
Added overloaded mkQuant to ParadigmsEng.
Diffstat (limited to 'next-lib/src/english/MorphoEng.gf')
| -rw-r--r-- | next-lib/src/english/MorphoEng.gf | 7 |
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 } ; |
