From 1671c1847b6e8c4fc58175801a197f3129cda6a0 Mon Sep 17 00:00:00 2001 From: Alexey Kardashevskiy Date: Tue, 28 Feb 2023 16:50:18 +1100 Subject: Remove ?PICK The word is not used and the name does not reflect well what it does. Suggested-by: Segher Boessenkool Signed-off-by: Alexey Kardashevskiy --- slof/engine.in | 1 - slof/prim.code | 8 -------- 2 files changed, 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); -- cgit v1.1