From 005b1fad798531f493a1a6167cdc0cf513dd1c60 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Sun, 9 Jan 2022 17:33:58 +0900 Subject: [PATCH] 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 -- )