[Amforth-devel] amf4.2 - \lib\math.frt - bug in dnegate

[pito <pi...@vo...>]

\ dnegate  d1 -- d2          32 bit negate
: dnegate
swap invert swap invert 1. d+   \ <<<< Pito: was " 1 m+ "
;

PS: maybe we shall merge 2x.frt and math.frt and add (an example):

\ m+ ( d1 n -- d2 )
: m+ s>d d+ ;

: dxor  ( d1 d2 -- d )  rot xor >r xor r>  ;          \ double xor
: dor   ( d1 d2 -- d )  rot or >r or r>    ;          \ double or
: dand  ( d1 d2 -- d )  rot and >r and r>  ;          \ double and

: sd*   ( multiplicand multiplier_double -- product_double )
>r over r> * >r   um*   r> +  ;    \ single * double = double

: dmax 2over 2over d< if 2swap then 2drop ;
: dmin 2over 2over d< 0= if 2swap then 2drop ;