From 215d124c17dd08f4114204cd12c66a3659605aed Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 23 Sep 2018 14:26:48 +0200
Subject: Export labels by default

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

(limited to 'ABC/Assembler.icl')

diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl
index 5dec73f..c0a6546 100644
--- a/ABC/Assembler.icl
+++ b/ABC/Assembler.icl
@@ -16,7 +16,7 @@ where
 instance <<< Assembler
 where
 	<<< f [                           ] = f
-	<<< f [stm=:(Label _)           :r] = f <<< stm <<< "\r\n" <<< r
+	<<< f [stm=:(Label l)           :r] = f <<< ".export " <<< l <<< "\r\n" <<< stm <<< "\r\n" <<< r
 	<<< f [stm=:(Descriptor _ _ _ _):r] = f <<< r
 	<<< f [stm=:(Annotation _)      :r] = f <<< stm <<< "\r\n" <<< r
 	<<< f [stm=:(Raw _)             :r] = f <<< stm <<< "\r\n" <<< r
-- 
cgit v1.2.3