GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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 ab9d27f995
commit fad0512c94
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 (CSel v path) term
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)))
getVarIndex (IA _ i) = i