Add 21 primitives to Faustine.

[Faustine.git] / interpretor / beam.ml

diff --git a/interpretor/beam.ml b/interpretor/beam.ml
index 6e56170..bec7ed0 100644 (file)
--- a/interpretor/beam.ml
+++ b/interpretor/beam.ml
@@ -70,7 +70,7 @@ class beam : signal_type array -> beam_type =
          let signal_at = fun (t : time) -> fun (s : signal_type) -> s#at t in
          Array.map (signal_at t) self#get
 
          let signal_at = fun (t : time) -> fun (s : signal_type) -> s#at t in
          Array.map (signal_at t) self#get
 

-      method output : int -> float array array array = 
+      method output : int -> data = 

          fun (length_max : int) ->
            let transpose : 'a array array -> 'a array array = 
              fun matrix ->
          fun (length_max : int) ->
            let transpose : 'a array array -> 'a array array = 
              fun matrix ->