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

debugging gfcc bug; resulted in some type annotations to work around problems

Browse Source
This commit is contained in:
aarne
2007-11-09 14:02:11 +00:00
parent 3cbaf00c3c
commit ce975919c9
6 changed files with 24 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-1.0/scandinavian/CommonScand.gf
View File

@@ -81,10 +81,12 @@ oper
-- Used in $Noun.AdjCN$.
agrAdj : GenNum -> DetSpecies -> AFormPos = \gn,d -> case <gn,d> of {
<_, DIndef> => Strong gn ;
<Plg,DDef _> => Weak Pl ;
_ => Weak Sg
----- agrAdj : GenNum -> DetSpecies -> AFormPos = \gn,d -> Strong gn ; --- debug
agrAdj : GenNum -> DetSpecies -> AFormPos = \gn,d ->
case <<gn,d> : GenNum * DetSpecies> of {
<_, DIndef> => Strong gn ;
<Plg,DDef _> => Weak Pl ;
_ => Weak Sg
} ;
-- Used in $DiffScand.predV$.