From f88a775617bdc52e24c58e92a736e222bc2cc030 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sat, 30 Nov 2024 07:05:45 -0500
Subject: comp_dict
---
core.fth | 20 --------------------
1 file changed, 20 deletions(-)
(limited to 'core.fth')
diff --git a/core.fth b/core.fth
index c3746c3..00f2c87 100644
--- a/core.fth
+++ b/core.fth
@@ -1,8 +1,4 @@
-: chars ;
-
: state [ _d 7 cells + ] literal ;
-\ : [ 0 state ! ; immediate
-\ : ] -1 state ! ;
: sp [ _d cell+ ] literal ;
: rp [ _d 2 cells + ] literal ;
@@ -16,8 +12,6 @@
: base [ _d 9 cells + ] literal ;
: latest _d @ ;
-\ : dup sp@ @ ;
-\ : drop sp@ cell+ sp ! ;
: pick cells cell+ sp@ + @ ;
: >r rp@ cell - rp !
rp@ cell+ @ rp@ !
@@ -25,11 +19,8 @@
: r> rp@ @
rp@ cell+ rp !
rp@ @ swap rp@ ! ;
-\ : rot >r swap r> swap ;
-: -rot rot rot ;
: over 1 pick ;
-: 2drop drop drop ;
: 2dup over over ;
: 2over 3 pick 3 pick ;
: 2swap rot >r rot r> ;
@@ -51,18 +42,8 @@
: 2! swap over ! cell+ ! ;
: 2@ dup cell+ @ swap @ ;
-: 0= 0 = ;
-: 0< 0 < ;
: <= 2dup < >r = r> or ;
-: > swap < ;
-: <> = 0= ;
-
-: 1+ 1 + ;
-: 1- 1 - ;
-: invert -1 xor ;
-: negate -1 * ;
-: 2* 2 * ;
: _msb [ 1 cell 8 * 1- lshift ] literal ;
: 2/ dup 1 rshift swap 0< if _msb or then ;
@@ -75,7 +56,6 @@
: align here dup aligned swap - allot ;
: cr 10 emit ;
-: bl 32 ;
: space bl emit ;
\ : spaces begin dup 0 > while space 1- repeat drop ;
--
cgit v1.2.3