This seems conceptually simpler (I happened to be writing this elsewhere so thought I'd make it match)
1 files changed, 1 insertions(+), 2 deletions(-) M resampling-fn.sml
M resampling-fn.sml +1 -2
@@ 29,8 29,7 @@ end = struct type source = int -> M.matrix option fun emptySpare channels = - M.fromRows - (List.tabulate (channels, fn _ => RealVector.fromList [])) + M.zero (M.ROW_MAJOR, { rows = channels, columns = 0 }) fun new (parameters : BqResample.parameters) (ratio : real)