1
0
forked from GitHub/gf-core

debugging new compilation

This commit is contained in:
aarne
2007-12-09 15:20:50 +00:00
parent 6a4218e9ef
commit 6edb2f075a
4 changed files with 24 additions and 7 deletions

View File

@@ -63,7 +63,7 @@ computeTermOpt rec gr = comp where
---- Computed t' -> return $ unComputed t'
Vr x -> do
t' <- maybe (prtBad ("no value given to variable") x) return $ lookup x g
t' <- maybe (prtBad ("no value for variable") x) return $ lookup x g
case t' of
_ | t == t' -> return t
_ -> comp g t'