mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-09-14 22:36:01 -06:00
first draft for Diophantine grammars
This commit is contained in:
@@ -110,7 +110,7 @@ lookupResDef gr (m,c)
|
||||
ResOper _ (Just (L _ t)) -> return t
|
||||
ResOper _ Nothing -> return (Q (m,c))
|
||||
CncCat (Just (L _ ty)) _ _ _ _ -> lock c ty
|
||||
CncCat _ _ _ _ _ -> lock c defLinType
|
||||
CncCat _ _ _ _ _ -> lock c defLinType
|
||||
|
||||
CncFun (Just (_,cat,_,_)) (Just (L _ tr)) _ _ -> unlock cat tr
|
||||
CncFun _ (Just (L _ tr)) _ _ -> return tr
|
||||
|
||||
Reference in New Issue
Block a user