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

testgf3 in progress; fixed VP type in ExtraEng

Browse Source
This commit is contained in:
aarne
2008-02-22 14:16:33 +00:00
parent 4e3d240d2d
commit 9e6064709f
6 changed files with 17 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Devel/Compile/SourceToGF.hs
View File

@@ -272,7 +272,7 @@ transResDef x = case x of
mkParamDefs (p,pars) =
if null pars
then [(p,addJType M.meta0 (emptyJudgement G.JParam))] -- in an interface
else (p,resParam pars) : paramConstructors p pars
else (p,resParam p pars) : paramConstructors p pars
mkOverload (c,j) = case (G.jtype j, G.jdef j) of
(_,G.App keyw (G.R fs@(_:_:_))) | isOverloading keyw c fs ->