瀏覽代碼

Remove 2OVER and 2SWAP

They were unused.
master
Virgil Dupras 3 年之前
父節點
當前提交
64f0f6716e
共有 3 個文件被更改,包括 0 次插入4 次删除
  1. +0
    -2
      blk.fs
  2. 二進制
      cvm/stage.bin
  3. +0
    -2
      doc/dict.txt

+ 0
- 2
blk.fs 查看文件

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


二進制
cvm/stage.bin 查看文件


+ 0
- 2
doc/dict.txt 查看文件

@@ -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…
取消
儲存