X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/9fdfd04e29fcefdb9120a4d9467827ceaf8dfaa0..1a54fb0c50310685e11123132e1fdcdf7ea2b5ad:/interpretor/signal.ml?ds=sidebyside

diff --git a/interpretor/signal.ml b/interpretor/signal.ml
index f98e941..66089e9 100644
--- a/interpretor/signal.ml
+++ b/interpretor/signal.ml
@@ -149,6 +149,8 @@ class signal : rate_type -> (time -> value_type) -> signal_type =
 	method neq = self#prim2 (fun t -> (self#at t)#neq)
 	method max = self#prim2 (fun t -> (self#at t)#max)
 	method min = self#prim2 (fun t -> (self#at t)#min)
+	method shl = self#prim2 (fun t -> (self#at t)#shl)
+	method shr = self#prim2 (fun t -> (self#at t)#shr)
 
 	method delay : signal_type -> signal_type =
 	  fun (s : signal_type) ->