From 7d71454cac74cc6dab8c3b70d8bd3b5420d658cd Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 17 Jul 2017 21:47:36 +0000
Subject: Add <<< for Assembler and Statement

---
 ABC/Assembler.icl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'ABC/Assembler.icl')

diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl
index d8e616a..29e2d5b 100644
--- a/ABC/Assembler.icl
+++ b/ABC/Assembler.icl
@@ -9,9 +9,18 @@ import ABC.Misc
 instance toString Assembler
 where
 	toString []                            = ""
-	toString [stm=:(Label l):r]            = stm <+ "\n" <+ r
+	toString [stm=:(Label l):r]            = stm <+ "\r\n" <+ r
 	toString [stm=:(Descriptor _ _ _ _):r] = toString r
-	toString [stm                      :r] = "\t" <+ stm <+ "\n" <+ r
+	toString [stm                      :r] = "\t" <+ stm <+ "\r\n" <+ r
+
+instance <<< Assembler
+where
+	<<< f []                            = f
+	<<< f [stm=:(Label l):r]            = f <<< stm <<< "\r\n" <<< r
+	<<< f [stm=:(Descriptor _ _ _ _):r] = f <<< r
+	<<< f [stm                      :r] = f <<< "\t" <<< stm <<< "\r\n" <<< r
+
+instance <<< Statement where <<< f st = f <<< toString st
 
 generic gPrint a :: !a -> [Char]
 gPrint{|Int|}          x          = fromString (toString x)
-- 
cgit v1.2.3