gforth/test/gforth.fs - diff

Return to gforth.fs CVS log

Up to [gforth] / gforth / test

-version 1.17, 2009/12/31 15:32:36
+version 1.18, 2011/08/10 13:55:03
  Line 95  t{ -5e  1e fcopysign ->  5e }t
  t{  5e -1e fcopysign -> -5e }t
  t{ -5e -1e fcopysign -> -5e }t
  \ tests involving -0e?
+ \ ?of
+ : sgn ( n1 -- n2 )
+     case
+         dup 0< ?of drop -1 endof
+         dup 0> ?of drop 1 endof
+         dup
+     endcase ;
+ t{  5 sgn ->  1 }
+ t{ -3 sgn -> -1 }
+ t{  0 sgn ->  0 }