Oops, this was an un-fix. Re-fix it.
1 files changed, 1 insertions(+), 1 deletions(-)

M fft-real.sml
M fft-real.sml +1 -1
@@ 94,7 94,7 @@ fun forward_inplace (t : t, re_in, re_ou
             (fn i =>
                 let
                     val c = VEC.sub (#cos_f t, i)
-                    val s = ~ VEC.sub (#sin_f t, i)
+                    val s = VEC.sub (#sin_f t, i)
                     val k = i + 1
                     val r0 = sub (re_a, k)
                     val r1 = sub (re_a, hs - k)