[OpenBIOS] [commit] r911 - trunk/openbios-devel/forth/bootstrap

[Tarl Neustädter]

  On 2010-10-16 6:37 PM, repository service wrote:
> [...]
> +\ 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 ;
> +

Are those words correct? The return address from the colon definition will 
also be on the return stack and will interfere. What I see in various places 
in Openboot sources is:

: 2>r ( a b -- ) r> -rot swap >r >r >r ;
: 2r> ( -- a b ) r> r> r> rot >r swap ;