Просмотр исходного кода

Remove 2OVER and 2SWAP

They were unused.
master
Virgil Dupras 3 лет назад
Родитель
Сommit
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,


Загрузка…
Отмена
Сохранить