From 717d2e28fb612bd165f6948d0f44cf0301858376 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 08:13:42 +0900
Subject: [PATCH] Make computation of ~(CELL-1) simpler

---
 core.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core.fs b/core.fs
index 8f8e453..85c18d3 100644
--- a/core.fs
+++ b/core.fs
@@ -197,8 +197,8 @@ cB i, 'h, '@, '$, 'h, 'L, k1k0-, '+, 'h, '!, 'e, l!
 \ 'a' ( c-addr -- a-addr ) ALIGNED
 \ Round up 'a' to a multiple of CELL
 ca i,
-    'L, Ck1k0--, '+,        \ ( a+CELL-1 )
-    'L, Ck1k0-- k0k1- ^,    \ ( a+CELL-1 ~(CELL-1) )
+    'L, Ck1k0--, '+,    \ ( a+CELL-1 )
+    'L, k0k0-C-,        \ ( a+CELL-1 ~(CELL-1) )
     '&, 'e,
 l!