Remove ?PICK

The word is not used and the name does not reflect well what it does.

Suggested-by: Segher Boessenkool <segher@kernel.crashing.org>
Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>

2 files changed, 0 insertions, 9 deletions

diff --git a/slof/engine.in b/slof/engine.in
index 549e409..59e82f1 100644
--- a/slof/engine.in
+++ b/slof/engine.in
@@ -102,7 +102,6 @@ col(-ROLL DUP ?DUP 0BRANCH(9) >R ROT R> SWAP >R 1 - BRANCH(-12) ?DUP 0BRANCH(6)
 col(2>R R> ROT >R SWAP >R >R)
 col(2R> R> R> R> ROT >R SWAP)
 col(2R@ R> R> R@ OVER >R ROT >R SWAP)
-cod(?PICK)
 
 // Arithmetic.
 col(2* 1 LSHIFT)
diff --git a/slof/prim.code b/slof/prim.code
index b9db151..b4e5e84 100644
--- a/slof/prim.code
+++ b/slof/prim.code
@@ -561,14 +561,6 @@ PRIM(STRING_X3d_CI)
 	}
 MIRP
 
-// bool dependend pick
-// ?PICK ( v1 v2 bool -- v1|v2 )
-PRIM(_X3f_PICK)
-        type_u b = TOS.u; POP;
-        if (b) { NOS = TOS; }
-        POP;
-MIRP
-
 /* zcount ( zstr -- str len ) */
 PRIM(ZCOUNT)
 	type_u len = strlen(TOS.a);