threat category _Var as a literal category

2008-10-15 08:38:34 +00:00
parent 4fa3eb87cd
commit e36d70d483
3 changed files with 18 additions and 15 deletions
--- a/src/GF/Compile/GeneratePMCFG.hs
+++ b/src/GF/Compile/GeneratePMCFG.hs
@@ -268,11 +268,13 @@ emptyFRulesEnv cnc_defs lincats =
    cidString = mkCId "String"
    cidInt    = mkCId "Int"
    cidFloat  = mkCId "Float"
+    cidVar    = mkCId "_Var"
    
    computeCatRange index cat ctype
      | cat == cidString = (index,     (fcatString,fcatString,[]))
      | cat == cidInt    = (index,     (fcatInt,   fcatInt,   []))
      | cat == cidFloat  = (index,     (fcatFloat, fcatFloat, []))
+      | cat == cidVar    = (index,     (fcatVar,   fcatVar,   []))
      | otherwise        = (index+size,(index,index+size-1,poly))
      where
        (size,poly) = getMultipliers 1 [] ctype