From 03e2887e46a8b84f73037583945ce80b0682d057 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sat, 29 Jul 2017 00:09:54 +0200
Subject: Fix lazy operators

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

(limited to 'Sil')

diff --git a/Sil/Compile.icl b/Sil/Compile.icl
index 0d5a3f2..fab7643 100644
--- a/Sil/Compile.icl
+++ b/Sil/Compile.icl
@@ -508,6 +508,7 @@ where
 		storeStackOffsets *>
 		gen e1 *>
 		tell [ 'ABC'.JmpTrue true ] *>
+		shrinkStack {zero & bsize=1} *>
 		gen e2 *>
 		tell [ 'ABC'.Jmp end ] *>
 		restoreStackOffsets *>
@@ -523,6 +524,7 @@ where
 		storeStackOffsets *>
 		gen e1 *>
 		tell [ 'ABC'.JmpFalse false ] *>
+		shrinkStack {zero & bsize=1} *>
 		gen e2 *>
 		tell [ 'ABC'.Jmp end ] *>
 		restoreStackOffsets *>
-- 
cgit v1.2.3