GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-19 00:00:18 -06:00
Code Issues Packages Projects Releases Wiki 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 453e204813
commit 88e97ba120
4 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
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
} ;