making parsing ImperC work

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

src/GF/Source/LexGF.hs

@@ -59,7 +59,7 @@ prToken t = case t of
   PT _ (TD s) -> s
   PT _ (TC s) -> s
   PT _ (T_LString s) -> s
-
+  _ -> show t
 
 eitherResIdent :: (String -> Tok) -> String -> Tok
 eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where