diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 14:45:02 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 14:45:02 +0000 |
| commit | ff29836c9b29a7bd5373c8517b282798ae44418e (patch) | |
| tree | 5791b0680cb121167668865dafc682de9e71804a /next-lib/src/german | |
| parent | f8fdaa7accef4c6935e5ecdf9ef292b1f7b2901b (diff) | |
some more fixes for cleaner compilation of alltensenses
Diffstat (limited to 'next-lib/src/german')
| -rw-r--r-- | next-lib/src/german/ResGer.gf | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/next-lib/src/german/ResGer.gf b/next-lib/src/german/ResGer.gf index 5677ab106..ea87cabbd 100644 --- a/next-lib/src/german/ResGer.gf +++ b/next-lib/src/german/ResGer.gf @@ -143,10 +143,12 @@ resource ResGer = ParamX ** open Prelude in { vFin : Bool -> Mood -> Tense -> Agr -> VForm = \b,m,t,a -> case <t,m> of { - <Past,MIndic> => VFin b (VImpfInd a.n a.p) ; --# notpresent - <Past,MConjunct> => VFin b (VImpfSubj a.n a.p) ; --# notpresent <Pres,MIndic> => VFin b (VPresInd a.n a.p) ; <Pres,MConjunct> => VFin b (VPresSubj a.n a.p) + ; --# notpresent + <Past,MIndic> => VFin b (VImpfInd a.n a.p) ; --# notpresent + <Past,MConjunct> => VFin b (VImpfSubj a.n a.p) ; --# notpresent + _ => VInf False --# notpresent } ; conjAgr : Agr -> Agr -> Agr = \a,b -> { |