From 47e75ab015e6885339db6b3699b0ffcc2f0dcbc4 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Sun, 9 Jan 2022 17:33:45 +0900 Subject: [PATCH 1/2] export arshift --- bootstrap.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bootstrap.fs b/bootstrap.fs index a43b8ae..6c486cf 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -2733,7 +2733,7 @@ variable included-list ' ['] compile compile, [compile] literal state + - * /mod / mod negate not and or xor invert within max min abs < > <= >= = <> 0< 0> 0<= 0>= 0= 0<> 1+ 1- - u< u> u<= u>= lshift rshift 2* 2/ + u< u> u<= u>= lshift rshift arshift 2* 2/ true false From 005b1fad798531f493a1a6167cdc0cf513dd1c60 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Sun, 9 Jan 2022 17:33:58 +0900 Subject: [PATCH 2/2] minor fix --- bootstrap.fs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bootstrap.fs b/bootstrap.fs index 6c486cf..b288229 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -616,7 +616,8 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error : nip swap drop ; \ ( a b -- b ) : over >r dup r> swap ; \ ( a b -- a b a ) : tuck dup -rot ; \ ( a b -- b a b ) -: pick cells sp@ + cell + @ ; \ ( wu ... x0 u -- xu ... x0 xu ) +: pick cells sp@ + cell + @ ; \ ( xu ... x0 u -- xu ... x0 xu ) + : 2drop drop drop ; \ ( a b -- ) : 3drop 2drop drop ; \ ( a b c -- )