1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 08:48:05 +11:00

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 )
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 )

Binary file not shown.

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,