diff options
| author | Camil Staps | 2017-07-20 19:50:01 +0000 |
|---|---|---|
| committer | Camil Staps | 2017-07-20 19:50:01 +0000 |
| commit | 628b8d6ec43d7f5e7e17e2cbd529336c2a10494a (patch) | |
| tree | c46d5e2b60d5a3e8960c018f9bb61f98f45a962a | |
| parent | Add notB (diff) | |
Fix printing of booleans
| -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 |