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

overload extension: syntax overload OldModule* {def*}

Browse Source
This commit is contained in:
aarne
2008-06-03 09:21:24 +00:00
parent 07c8a4383a
commit 04d8846c95
7 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src-3.0/GF/Source/SourceToGrammar.hs
View File

@@ -357,7 +357,7 @@ transResDef x = case x of
G.ResOper _ (Yes df) -> case M.appForm df of
(keyw, ts@(_:_)) | isOverloading keyw -> case last ts of
G.R fs ->
[(c,p,G.ResOverload (init ts) [(ty,fu) | (_,(Just ty,fu)) <- fs])]
[(c,p,G.ResOverload [m | G.Vr m <- ts] [(ty,fu) | (_,(Just ty,fu)) <- fs])]
_ -> [op]
_ -> [op]