judgements lindef are now respected by both the parser and the linearizer

2026-07-08 06:32:45 -06:00 · 2009-12-11 17:39:18 +00:00
parent 3353059277
commit 5804db9816
4 changed files with 50 additions and 30 deletions
@@ -146,8 +146,9 @@ combinations t = case t of
  aa:uu -> [a:u | a <- aa, u <- combinations uu]

 isLiteralCat :: CId -> Bool
-isLiteralCat = (`elem` [cidString, cidFloat, cidInt])
+isLiteralCat = (`elem` [cidString, cidFloat, cidInt, cidVar])

 cidString = mkCId "String"
 cidInt    = mkCId "Int"
 cidFloat  = mkCId "Float"
+cidVar    = mkCId "#Var"