diff options
author | Alexey Kardashevskiy <aik@ozlabs.ru> | 2023-02-28 16:50:18 +1100 |
---|---|---|
committer | Alexey Kardashevskiy <aik@ozlabs.ru> | 2023-02-28 16:50:18 +1100 |
commit | 1671c1847b6e8c4fc58175801a197f3129cda6a0 (patch) | |
tree | bd1e97d6143757a98fff6211832923c720cde152 /slof/prim.code | |
parent | 6fdb5a49335f7d179042bfbca34944d705bdde3b (diff) | |
download | SLOF-1671c1847b6e8c4fc58175801a197f3129cda6a0.zip SLOF-1671c1847b6e8c4fc58175801a197f3129cda6a0.tar.gz SLOF-1671c1847b6e8c4fc58175801a197f3129cda6a0.tar.bz2 |
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>
Diffstat (limited to 'slof/prim.code')
-rw-r--r-- | slof/prim.code | 8 |
1 files changed, 0 insertions, 8 deletions
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); |