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

adjective form with Ger determiners

Browse Source
This commit is contained in:
aarne
2012-05-08 11:54:36 +00:00
parent 38ed063405
commit 4a62dae5e1
2 changed files with 6 additions and 6 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 -> Case -> Adjf = \a,c -> case <a,c> of {
<Strong, Nom|Acc> => Strong ;
adjfCase : Adjf -> Number -> Case -> Adjf = \a,n,c -> case <n,c> of {
<Sg, Nom|Acc> => a ;
_ => Weak
} ;