From a5a57f9386ce54d37c3b7de31db669b0f5236bf0 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sat, 17 Oct 2020 17:36:16 +0300
Subject: .

---
 common/const.sts | 2 +-
 common/macro.sts | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'common')

diff --git a/common/const.sts b/common/const.sts
index 7b20b4d..46b98e3 100644
--- a/common/const.sts
+++ b/common/const.sts
@@ -3,7 +3,7 @@ defconst '!' 21
 defconst '"' 22
 defconst '#' 23
 defconst '$' 24
-; '%' (25) symbol is reserved by smack
+defconst percent 25 ; '%' (25) symbol is reserved by smack
 defconst '&' 26
 defconst ''' 27
 defconst '(' 28
diff --git a/common/macro.sts b/common/macro.sts
index f8620d5..162bf2f 100644
--- a/common/macro.sts
+++ b/common/macro.sts
@@ -3,7 +3,7 @@
 ]
 
 [ change 0
-    dup get
-    swap 2 get swap 2 + set
+    1 + dup get
+    swap 2 get swap set
     swap drop
 ]
-- 
cgit v1.2.3