Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine

[Faustine.git] / interpretor / process.ml

diff --git a/interpretor/process.ml b/interpretor/process.ml
index 31cc6c9..e7568df 100644 (file)
--- a/interpretor/process.ml
+++ b/interpretor/process.ml
@@ -164,6 +164,10 @@ class proc_ident : faust_exp -> process_type =
                ((input#get.(0))#larger input#get.(1))
          | Smaller -> self#beam_of_ident n 
                ((input#get.(0))#smaller input#get.(1))
                ((input#get.(0))#larger input#get.(1))
          | Smaller -> self#beam_of_ident n 
                ((input#get.(0))#smaller input#get.(1))

+         | Max -> self#beam_of_ident n 
+               ((input#get.(0))#max input#get.(1))
+         | Min -> self#beam_of_ident n 
+               ((input#get.(0))#min input#get.(1))

          | Prefix -> self#beam_of_ident n 
                ((input#get.(1))#prefix input#get.(0))
          | Select2 -> self#beam_of_ident n 
          | Prefix -> self#beam_of_ident n 
                ((input#get.(1))#prefix input#get.(0))
          | Select2 -> self#beam_of_ident n