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>
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(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 @@
}
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);
