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

added missing case for GF.Compile.GeneratePMCFG.evalTerm

Browse Source
This commit is contained in:
krasimir
2010-08-30 07:54:53 +00:00
parent b0e78f33bc
commit d3e7095ceb
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -469,6 +469,7 @@ evalTerm path (V pt ts) = case path of
evalTerm path (S term sel) = do v <- evalTerm CNil sel evalTerm path (S term sel) = do v <- evalTerm CNil sel
evalTerm (CSel v path) term evalTerm (CSel v path) term
evalTerm path (FV terms) = variants terms >>= evalTerm path evalTerm path (FV terms) = variants terms >>= evalTerm path
evalTerm path (EInt n) = return (EInt n)
evalTerm path t = error (render (text "evalTerm" <+> parens (ppTerm Unqualified 0 t))) evalTerm path t = error (render (text "evalTerm" <+> parens (ppTerm Unqualified 0 t)))
getVarIndex (IA _ i) = i getVarIndex (IA _ i) = i