diff --git a/forth/bootstrap/bootstrap.fs b/forth/bootstrap/bootstrap.fs index e9107f3..678cd2e 100644 --- a/forth/bootstrap/bootstrap.fs +++ b/forth/bootstrap/bootstrap.fs @@ -404,6 +404,17 @@ variable leaves 0 leaves ! : 2rot >r >r 2swap r> r> 2swap ; +\ +\ 7.3.1.4 - return stack +\ + +\ Note: these words are not part of the official OF specification, however +\ they are part of the ANSI DPANS94 core extensions (see section 6.2) and +\ so this seems an appropriate place for them. +: 2>r swap >r >r ; +: 2r> r> r> swap ; +: 2r@ r> r> 2dup >r >r swap ; + \ \ 7.3.2.1 - single precision integer arithmetic (part 1) \