GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-24 02:31:06 -06:00
Code Issues Packages Projects Releases Wiki Activity

lincat can now be just Str

Browse Source
This commit is contained in:
aarne
2008-03-09 12:17:42 +00:00
parent aa94e34098
commit a34eed5189
3 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Devel/GrammarToGFCC.hs
View File

@@ -440,8 +440,8 @@ term2term cgr env@(labels,untyps,typs) tr = case tr of
Just vs -> (ty,[t |
(t,_) <- sortBy (\x y -> compare (snd x) (snd y))
(Map.assocs vs)])
_ -> error $ A.prt ty
_ -> error $ A.prt tr
_ -> error $ "doVar1" +++ A.prt ty
_ -> error $ "doVar2" +++ A.prt tr +++ show (cat,lab) ---- debug
updateSTM ((tyvs, (tr', tr)):)
return tr'
_ -> GM.composOp doVar tr