making parsing ImperC work

2004-09-22 20:42:21 +00:00
parent 8cd24e0b91
commit 6c3c14dfcf
6 changed files with 51 additions and 31 deletions
--- a/src/GF/Grammar/PrGrammar.hs
+++ b/src/GF/Grammar/PrGrammar.hs
@@ -168,6 +168,7 @@ instance Print Val where
  prt (VClos env e) = case e of
    Meta _ -> prt_ e ++ prEnv env
    _      -> prt_ e ---- ++ prEnv env ---- for debugging
+  prt VType = "Type"
 
 prv1 v = case v of
  VApp _ _  -> prParenth $ prt v