diff options
| -rw-r--r-- | ABC/Assembler.icl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |