anchor.diff:      case Exp >= 0 of
           true ->
               BExp = 1 bsl Exp,
  -            case (Frac /= ?BIG_POW) of
  +            case (Frac =/= ?BIG_POW) of
                   true ->
                       scale((Frac * BExp * 2), 2, BExp, BExp,
                             Round, Round, Float);
  
positive.code:     ok.
  
  digits_test() ->
      "0" = digits(0),
      "0.0" = digits(0.0),
      "1.0" = digits(1.0),
      "-1.0" = digits(-1.0),
      "0.1" = digits(0.1),
      "0.01" = digits(0.01),
      "0.001" = digits(0.001),
      ok.
  
  frexp_test() ->
  
negative.code:         _ ->
              R
      end.
  
  %% @spec frexp(F::float()) -> {Frac::float(), Exp::float()}
  %% @doc  Return the fractional and exponent part of an IEEE 754 double,
  %%       equivalent to the libc function of the same name.
  