Browse Source

Remove 2OVER and 2SWAP

They were unused.
master
Virgil Dupras 3 years ago
parent
commit
64f0f6716e
3 changed files with 0 additions and 4 deletions
  1. +0
    -2
      blk.fs
  2. BIN
      cvm/stage.bin
  3. +0
    -2
      doc/dict.txt

+ 0
- 2
blk.fs View File

@@ -1840,8 +1840,6 @@ SYSVARS 0x0c + :** C<*
1+ DUP PICK ( n val )
SWAP 2 * (roll) ( val )
NIP ;
: 2OVER 3 PICK 3 PICK ;
: 2SWAP 3 ROLL 3 ROLL ;
( ----- 367 )
: MOVE ( a1 a2 u -- )
?DUP IF ( u ) 0 DO ( a1 a2 )


BIN
cvm/stage.bin View File


+ 0
- 2
doc/dict.txt View File

@@ -129,8 +129,6 @@ SWAP a b -- b a
TUCK a b -- b a b
2DROP a a --
2DUP a b -- a b a b
2OVER a b c d -- a b c d a b
2SWAP a b c d -- c d a b
'S Returns current stack pointer, not counting the
push it's making right now.
S0 Returns address of PSP TOS. When PSP is empty,


Loading…
Cancel
Save