From b6b9e29c1484c9c8b8af2b382d3a9d796c310217 Mon Sep 17 00:00:00 2001
From: exegete <nikitf-97@mail.ru>
Date: Sat, 17 Oct 2020 03:33:08 +0300
Subject: Common dir added, stderr output, minor changes

---
 ia32/macro.sts | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

(limited to 'ia32/macro.sts')

diff --git a/ia32/macro.sts b/ia32/macro.sts
index 9335176..fa9510b 100644
--- a/ia32/macro.sts
+++ b/ia32/macro.sts
@@ -20,7 +20,7 @@
 
 [ defconst 2
     defasm %1%
-    # 68 ?' # %2% ?.                      ; push %2%
+        # 68 ?' # %2% ?.                ; push %2%
     next
 ]
 
@@ -30,7 +30,7 @@
     # %2% # 4 ?* ?res
     _code_segment ?choose
     defasm %1%
-    # 68 ?' _%1%_arr ?.                 ; push _%1%_arr
+        # 68 ?' _%1%_arr ?.             ; push _%1%_arr
     next
 ]
 
@@ -40,17 +40,13 @@
 
 [ as 1
     _data_segment ?choose
-        defword %1%
-            lit ?$ # 0 ?.
-        exit
+    defword %1%
+        lit ?$ # 0 ?.
+    exit
     _code_segment ?choose
     lit ?. !
 ]
 
-[ local 1
-    top as %1%
-]
-
 [ literal 0
     lit # %1% ?.
 ]
@@ -88,9 +84,3 @@
     branch ?swap ?.
     ?$ ?swap ?!
 ]
-
-[ change 0
-    dup get
-    swap 2 get swap 2 + set
-    swap drop
-]
-- 
cgit v1.2.3