GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-21 18:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

overload syntax; type printing in CheckGrammar

Browse Source
This commit is contained in:
aarne
2006-11-18 16:54:23 +00:00
parent d5244f46b9
commit 9d3fd3c9cf
4 changed files with 110 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Source/GrammarToSource.hs
View File

@@ -96,7 +96,8 @@ trAnyDef (i,info) = let i' = tri i in case info of
ResOverload tysts ->
[P.DefOper [P.DDef [mkName i'] (
P.ERecord [P.LDFull [i'] (trt ty) (trt fu) | (ty,fu) <- tysts])]]
P.EApp (P.EIdent $ identC "overload")
(P.ERecord [P.LDFull [i'] (trt ty) (trt fu) | (ty,fu) <- tysts]))]]
CncCat (Yes ty) Nope _ ->
[P.DefLincat [P.PrintDef [mkName i'] (trt ty)]]