Move 0, -1, 1 to internals vocabulary.

2024-11-09 11:06:50 -08:00
parent b3ca67eaf6
commit 3010f6c2b4
2 changed files with 3 additions and 6 deletions
--- 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: */ 
--- 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) \