New Faustine tested by sin.dsp and fft.dsp.
[Faustine.git] / interpretor / aux.ml
index 3bc11a6..fccb904 100644 (file)
@@ -18,4 +18,4 @@ let array_map3 = fun f -> fun a -> fun b -> fun c ->
   let n2 = Array.length b in
   let n3 = Array.length c in
   if n1 = n2 && n1 = n3 then Array.init n1 (fun i -> f a.(i) b.(i) c.(i))
   let n2 = Array.length b in
   let n3 = Array.length c in
   if n1 = n2 && n1 = n3 then Array.init n1 (fun i -> f a.(i) b.(i) c.(i))
-  else raise (Invalid_argument "Array.map2 size not matched.");;
+  else raise (Invalid_argument "Array.map3 size not matched.");;