Remove 2OVER and 2SWAP

They were unused.
This commit is contained in:
Virgil Dupras 2021-01-02 13:56:36 -05:00
parent 1cbef2f210
commit 64f0f6716e
3 changed files with 0 additions and 4 deletions

2
blk.fs
View File

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

Binary file not shown.

View File

@ -129,8 +129,6 @@ SWAP a b -- b a
TUCK a b -- b a b TUCK a b -- b a b
2DROP a a -- 2DROP a a --
2DUP a b -- a b a b 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 'S Returns current stack pointer, not counting the
push it's making right now. push it's making right now.
S0 Returns address of PSP TOS. When PSP is empty, S0 Returns address of PSP TOS. When PSP is empty,