X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/0a259beff10a55b87cdbd1a836f4c01162fdd73d..e775f23a10c4ba37fc1a762299f52cd0d71593b7:/interpretor/process.ml?ds=sidebyside

diff --git a/interpretor/process.ml b/interpretor/process.ml
index e7568df..f094b7b 100644
--- a/interpretor/process.ml
+++ b/interpretor/process.ml
@@ -89,7 +89,8 @@ class proc_const : faust_exp -> process_type =
       method eval : beam_type -> beam_type = 
 	fun (input : beam_type) ->
 	  if input#get = [||] then
-	    new beam [| new signal 0 (fun t -> new value self#const)|]
+	    new beam [| new signal (new rate 0 1) 
+			 (fun t -> new value self#const)|]
 	  else
 	    raise (Process_error "proc_const accepts no input.")
       end;;
@@ -265,7 +266,7 @@ and proc_rec : faust_exp -> process_type =
       method eval : beam_type -> beam_type = 
 	fun (input : beam_type) ->
 	  let memory = Hashtbl.create self#delay in
-	  let rates = ref (Array.make self#dim#output 0) in
+	  let rates = ref (Array.make self#dim#output (new rate 0 1)) in
 
 	  let split : (time -> value_type array) -> (time -> value_type) array = 
 	    fun beam_at ->