Explorar el Código

Remove 2OVER and 2SWAP

They were unused.
master
Virgil Dupras hace 3 años
padre
commit
64f0f6716e
Se han modificado 3 ficheros con 0 adiciones y 4 borrados
  1. +0
    -2
      blk.fs
  2. BIN
      cvm/stage.bin
  3. +0
    -2
      doc/dict.txt

+ 0
- 2
blk.fs Ver fichero

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


BIN
cvm/stage.bin Ver fichero


+ 0
- 2
doc/dict.txt Ver fichero

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


Cargando…
Cancelar
Guardar