Diff for /gforth/extend.fs between versions 1.63 and 1.64

version 1.63, 2009/08/23 12:14:47 version 1.64, 2009/10/03 18:25:31
Line 50  decimal Line 50  decimal
     >r s>d >r abs -rot      >r s>d >r abs -rot
     s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*      s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*
     swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod      swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod
     [ s" floored" environment? 0= throw ] [if]      [ 1 -3 mod 0< ] [if]
         -rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN          -rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN
     [else]      [else]
         nip swap r> IF dnegate THEN          nip swap r> IF dnegate THEN

Removed from v.1.63  
changed lines
  Added in v.1.64


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>