From 3010f6c2b441df42ab86554c3e15e9e54a9bc7ad Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 9 Nov 2024 11:06:50 -0800
Subject: [PATCH] Move 0, -1, 1 to internals vocabulary.

---
 common/forth_namespace_tests.fs | 3 ---
 common/tier1_opcodes.h          | 6 +++---
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/common/forth_namespace_tests.fs b/common/forth_namespace_tests.fs
index 775e89e..fb0c55b 100644
--- a/common/forth_namespace_tests.fs
+++ b/common/forth_namespace_tests.fs
@@ -159,9 +159,6 @@ e: check-tier2-opcodes
 ;e
 
 e: check-tier1-opcodes
-  out: 0 
-  out: 1 
-  out: -1 
   out: nip 
   out: rdrop 
   out: */ 
diff --git a/common/tier1_opcodes.h b/common/tier1_opcodes.h
index 466ecbd..691e017 100644
--- a/common/tier1_opcodes.h
+++ b/common/tier1_opcodes.h
@@ -13,9 +13,9 @@
 // limitations under the License.
 
 #define TIER1_OPCODE_LIST \
-  X("0", ZERO, PUSH 0) \
-  X("1", ONE, PUSH 1) \
-  X("-1", NEGATIVEONE, PUSH -1) \
+  XV(internals, "0", ZERO, PUSH 0) \
+  XV(internals, "1", ONE, PUSH 1) \
+  XV(internals, "-1", NEGATIVEONE, PUSH -1) \
   Y(nip, NIP) \
   Y(rdrop, --rp) \
   XV(forth, "*/", STARSLASH, SSMOD_FUNC; NIP) \