bug fixes in code size analysis

2026-05-02 07:42:50 -06:00 · 2011-09-24 08:20:58 +00:00
parent e45ae46732
commit f3087e4e43
2 changed files with 21 additions and 22 deletions
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -191,7 +191,7 @@ execute1 opts gfenv0 s0 =
          ops <- case ts of
             _:_ -> do
               let Right t = runP pExp (encodeUnicode utf8 (unwords ts))
-               err error return $ constantDepsTerm sgr t
+               err error (return . (t:)) $ constantDepsTerm sgr t
             _   -> error "give a term as argument"
          let prTerm = showTerm sgr TermPrintDefault Qualified
          let size = sizeConstant sgr