X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/9fdfd04e29fcefdb9120a4d9467827ceaf8dfaa0..e8e5ebaac3fd20af4989400e61811dc59ccbc6b8:/interpretor/signal.ml?ds=inline

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) ->