work on checking equations

This commit is contained in:
aarne
2004-10-26 11:24:32 +00:00
parent 18c0f62519
commit b73e3b2b56
5 changed files with 15 additions and 7 deletions

View File

@@ -162,7 +162,7 @@ prBinds bi = if null bi
prValDecl (x,t) = prParenth (prt_ x +++ ":" +++ prt_ t)
instance Print Val where
prt (VGen i x) = prt x ---- ++ "-$" ++ show i ---- latter part for debugging
prt (VGen i x) = prt x ++ "{-" ++ show i ++ "-}" ---- latter part for debugging
prt (VApp u v) = prt u +++ prv1 v
prt (VCn mc) = prQIdent_ mc
prt (VClos env e) = case e of