                              (xtract/xtract_variance spectrum block-size (xtract-args (first spectral-mean)) spectral-variance)
                              (xtract/xtract_spectral_standard_deviation spectrum block-size (xtract-args (first spectral-variance)) spectral-std-deviation)
 
-                             (let [argv (clojure->c-double [(first spectral-mean)
-                                                            (first spectral-std-deviation)])]
-                               (xtract/xtract_spectral_skewness spectrum block-size (xtract/doublea_to_voidp argv) spectral-skewness)
-                               (xtract/xtract_spectral_kurtosis spectrum block-size (xtract/doublea_to_voidp argv) spectral-kurtosis))
+                             (let [argv (xtract-args (first spectral-mean) (first spectral-std-deviation))]
+                               (xtract/xtract_spectral_skewness spectrum block-size argv spectral-skewness)
+                               (xtract/xtract_spectral_kurtosis spectrum block-size argv spectral-kurtosis))
 
                              ;;(xtract/xtract_noisiness     wav-data block-size (xtract-args NUM_HARMONICS ) noiseness)
 

                               :spectral-kurtosis      (first spectral-kurtosis)
                               :rms_amplitude          (first rms)

                               ;;                              :noisiness (first noiseness)
                               ;;                                :loudness (first loudness)
                               ;;                               :tonality (first tonality)
                               :midi midi
                               :f0 f0}
                              })))

                                                      peaks)

                         (let [rms                   (double-array [0])
                               spectral-irregularity (double-array [0])
                               spectral-centroid     (double-array [0])
                               spectral-variance     (double-array [0])

                               ;;TODO
                               noiseness             (double-array [0])
                               loudness              (double-array [0])
                               tonality              (double-array [0])

                               spectral-inharmonicity (spectral-inharmonicity
                                                       peaks block-size
