From f6661c32137dc2e51c9e6ba1f3f2253b75ba0133 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 23 Jan 2009 07:16:46 +0000 Subject: remove some more obsolete code --- src/GF/Compile/Compute.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/GF/Compile/Compute.hs') diff --git a/src/GF/Compile/Compute.hs b/src/GF/Compile/Compute.hs index 90295b697..d9fb8c12b 100644 --- a/src/GF/Compile/Compute.hs +++ b/src/GF/Compile/Compute.hs @@ -56,9 +56,6 @@ computeTermOpt rec gr = comput True where Q p c | p == cPredef -> return t | otherwise -> look p c - -- if computed do nothing - Computed t' -> return $ unComputed t' - Vr x -> do t' <- maybe (prtBad ("no value given to variable") x) return $ lookup x g case t' of -- cgit v1.2.3