X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/a6a80a5868c766f1a5360fd27f132fad425f8fe5:/interpretor/faustexp.ml..a891a827a9bad83d44164ffdd7b28f070c439e46:/interpretor/process.ml

diff --git a/interpretor/faustexp.ml b/interpretor/process.ml
similarity index 96%
rename from interpretor/faustexp.ml
rename to interpretor/process.ml
index e8ff318..31cc6c9 100644
--- a/interpretor/faustexp.ml
+++ b/interpretor/process.ml
@@ -1,11 +1,12 @@
 (**
- 	Module: Faustexp	
-	Description: Faust expression evaluation
+ 	Module: Process	
+	Description: Faust process classes
 	@author WANG Haisheng	
-	Created: 03/06/2013	Modified: 04/08/2013
+	Created: 03/06/2013	Modified: 14/08/2013
 *)
 
 open Types;;
+open Aux;;
 open Basic;;
 open Symbol;;
 open Value;;
@@ -269,12 +270,6 @@ and proc_rec : faust_exp -> process_type =
 		(beam_func t).(i) in
 	      Array.init self#dim#output (get_signal beam_at) in
 
-	  let array_map2 = fun f -> fun a -> fun b ->
-	    let n1 = Array.length a in
-	    let n2 = Array.length b in
-	    if n1 = n2 then Array.init n1 (fun i -> f a.(i) b.(i))
-	    else raise (Process_error "Array.map2 size not matched.") in
-
 	  let feedback : (time -> value_type array) -> beam = 
 	    fun beam_at ->
 	      let signals_at = split beam_at in