From 628b8d6ec43d7f5e7e17e2cbd529336c2a10494a Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 20 Jul 2017 19:50:01 +0000
Subject: Fix printing of booleans

---
 ABC/Assembler.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl
index 9cf2961..0d90e90 100644
--- a/ABC/Assembler.icl
+++ b/ABC/Assembler.icl
@@ -26,7 +26,7 @@ instance <<< Statement where <<< f st = f <<< toString st
 
 generic gPrint a :: !a -> [Char]
 gPrint{|Int|}          x          = fromString (toString x)
-gPrint{|Bool|}         x          = map toLower (fromString (toString x))
+gPrint{|Bool|}         x          = map toUpper (fromString (toString x))
 gPrint{|String|}       x          = fromString x
 gPrint{|Annotation|}   x          = fromString (printAnnot x)
 where
-- 
cgit v1.2.3