From a8534a038f3c9588243ff5ab940e974f10f66a19 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 19 Jul 2017 12:59:53 +0000
Subject: Add while and ! to printer

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

(limited to 'Sil/Util')

diff --git a/Sil/Util/Printer.icl b/Sil/Util/Printer.icl
index af3d072..d35281b 100644
--- a/Sil/Util/Printer.icl
+++ b/Sil/Util/Printer.icl
@@ -98,6 +98,8 @@ where
 		else` = case else of
 			Nothing -> ""
 			Just e  -> " else {\r\n" <+ print st` e <+ "\r\n" <+ st <+ "}"
+	print st (While c do) = st <+ "while (" <+ c <+ ") {\r\n" <+
+		print (incIndent st) do <+ "\r\n" <+ st <+ "}"
 	print st stm = st <+ stm
 
 printersperse :: a [b] -> String | toString a & toString b
-- 
cgit v1.2.3