From 375f655fc7dbf04378dde69af11accb00cde7205 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 19 Jul 2017 13:02:16 +0000
Subject: Discard unused application results

---
 Sil/Compile.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Sil/Compile.icl')

diff --git a/Sil/Compile.icl b/Sil/Compile.icl
index ca375b1..7857ff2 100644
--- a/Sil/Compile.icl
+++ b/Sil/Compile.icl
@@ -186,7 +186,7 @@ where
 		Just i -> comment (toString st) *> gen app *>
 		          tell ['ABC'.Update_a 0 $ i+1, 'ABC'.Pop_a 1] *> shrinkStack 1
 		_      -> liftT $ Error $ UndefinedName n
-	gen (Application e)   = comment "Application" *> gen e *> tell ['ABC'.Pop_a 1]
+	gen (Application e)   = comment "Application" *> gen e *> tell ['ABC'.Pop_a 1] *> shrinkStack 1
 	gen (Return (Just e)) = comment "Return" *> gen e *> cleanup *> tell ['ABC'.Rtn]
 	gen (Return Nothing)  = comment "Return" *> cleanup *> tell ['ABC'.Rtn]
 	gen (MachineStm s)    = tell ['ABC'.Raw s]
-- 
cgit v1.2.3