diff options
| author | aarne <aarne@chalmers.se> | 2011-09-24 08:20:58 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-09-24 08:20:58 +0000 |
| commit | 780d9ef528934d17191124cb41b480b0b8dc2d90 (patch) | |
| tree | 82f3cbd464fd07968ea718269ab78ace1f676ff9 /src/compiler/GFI.hs | |
| parent | bb599029c96f9e28d5fa00def33a1ecf0baab8c3 (diff) | |
bug fixes in code size analysis
Diffstat (limited to 'src/compiler/GFI.hs')
| -rw-r--r-- | src/compiler/GFI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index 7bb4df878..77f534d46 100644 --- 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 |