diff --git a/blk.fs b/blk.fs index 5c02fb4..4c193b5 100644 --- a/blk.fs +++ b/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 ) diff --git a/cvm/stage.bin b/cvm/stage.bin index 5def5c9..b50c816 100644 Binary files a/cvm/stage.bin and b/cvm/stage.bin differ diff --git a/doc/dict.txt b/doc/dict.txt index 84658d9..2ad85ff 100644 --- a/doc/dict.txt +++ b/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,