diff options
| -rw-r--r-- | slof/engine.in | 1 | ||||
| -rw-r--r-- | slof/prim.code | 8 |
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); |