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

possible to inherit an overload group without excluding+opening

Browse Source
This commit is contained in:
aarne
2008-06-03 11:59:00 +00:00
parent 757cad383c
commit fe2d34f9e1
4 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src-3.0/GF/Grammar/Lookup.hs
View File

@@ -65,7 +65,7 @@ lookupResDefKind gr m c = look True m c where
CncCat _ _ _ -> liftM (flip (,) 1) $ lock c defLinType
CncFun (Just (cat,_)) (Yes tr) _ -> liftM (flip (,) 1) $ unlock cat tr
CncFun _ (Yes tr) _ -> liftM (flip (,) 1) $ unlock c tr
CncFun _ (Yes tr) _ -> liftM (flip (,) 1) (return tr) ---- $ unlock c tr
AnyInd _ n -> look False n c
ResParam _ -> return (QC m c,2)