diff options
| author | krasimir <krasimir@chalmers.se> | 2009-01-23 07:16:46 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-01-23 07:16:46 +0000 |
| commit | f6661c32137dc2e51c9e6ba1f3f2253b75ba0133 (patch) | |
| tree | d3e1552511f26ef526c973a553f955e4d59d5862 /src/GF/Compile/Compute.hs | |
| parent | f0718589df2cef815cfef40f8ea6eb6a5fc671ec (diff) | |
remove some more obsolete code
Diffstat (limited to 'src/GF/Compile/Compute.hs')
| -rw-r--r-- | src/GF/Compile/Compute.hs | 3 |
1 files changed, 0 insertions, 3 deletions
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 |