GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-07-08 22:52:46 -06:00
Code Issues Packages Projects Releases Wiki Activity

data structures for param values with number, preparing optimized pattern matching in grammar compilation

Browse Source
This commit is contained in:
aarne
2008-12-08 07:15:19 +00:00
parent 87d7def438
commit ca4c63c58f
8 changed files with 35 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Grammar/Lookup.hs
+1 -1
View File
@@ -178,7 +178,7 @@ lookupValueIndex :: SourceGrammar -> Type -> Term -> Err Term
lookupValueIndex gr ty tr = do
ts <- allParamValues gr ty
case lookup tr $ zip ts [0..] of
Just i -> return $ Val ty i
Just i -> return $ Val tr ty i
_ -> Bad $ "no index for" +++ prt tr +++ "in" +++ prt ty
lookupIndexValue :: SourceGrammar -> Type -> Int -> Err Term