Properly initial prepend source. Fixes: #3125

savonet · Jun 3, 2023 · f3df74f · f3df74f
1 parent ed5b71c
commit f3df74f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/core/operators/prepend.ml b/src/core/operators/prepend.ml
@@ -137,7 +137,11 @@ class prepend ~merge source f =
       end;
       state <- `Idle
 
-    method private register a = a#get_ready activation
+    method private register a =
+      Clock.unify a#clock source#clock;
+      Typing.(a#frame_type <: self#frame_type);
+      a#get_ready activation
+
     method private unregister a = a#leave (self :> source)
   end