Merge branch 'OOP'

[Faustine.git] / interpretor / signal.ml

diff --git a/interpretor/signal.ml b/interpretor/signal.ml
index ae312b0..2dd9f73 100644 (file)
--- a/interpretor/signal.ml
+++ b/interpretor/signal.ml
@@ -98,13 +98,13 @@ class signal : int -> (time -> value_type) -> signal_type =
            let func : time -> value_type = 
              fun (t : time) ->
                let i = (s#at t)#to_int in
            let func : time -> value_type = 
              fun (t : time) ->
                let i = (s#at t)#to_int in

-               self#delay_by t i  in
+               self#delay_by i t  in

            new signal freq func
 
        method mem : signal_type = 
          let freq = self#frequency in
          let () = self#add_memory 1 in
            new signal freq func
 
        method mem : signal_type = 
          let freq = self#frequency in
          let () = self#add_memory 1 in

-         let func = fun (t : time) -> self#delay_by t 1 in
+         let func = fun (t : time) -> self#delay_by 1 t in

          new signal freq func
 
        method rdtable : signal_type -> signal_type -> signal_type = 
          new signal freq func
 
        method rdtable : signal_type -> signal_type -> signal_type =