msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

another fix in Ger Quant, for "gute Häuser"

Browse Source
This commit is contained in:
aarne
2012-05-08 13:45:31 +00:00
parent e64cd561c9
commit 36b1e82edb
4 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/german/ResGer.gf
View File

@@ -167,8 +167,8 @@ resource ResGer = ParamX ** open Prelude in {
-- This is used twice in NounGer.
adjfCase : Adjf -> Number -> Case -> Adjf = \a,n,c -> case <n,c> of {
<Sg, Nom|Acc> => a ;
adjfCase : Adjf -> Case -> Adjf = \a,c -> case c of {
Nom|Acc => a ;
_ => Weak
} ;