Fix the condition in on_end to properly handle unknown remaining time…

… and

unforeseen end of tracks.

src/operators/on_end.ml

@@ -22,7 +22,7 @@
 
 class on_end ~kind ~delay f s =
 object (self)
-  inherit Source.operator kind [s]
+  inherit Source.operator ~name:"on_end" kind [s]
 
   val mutable executed = false
 
@@ -41,15 +41,15 @@ object (self)
     if List.length l > 0 then
       latest_metadata <- Some (snd (List.hd l));
     let rem = Frame.seconds_of_master s#remaining in
-    if rem <= delay && not executed then
+    if (not executed) && ((0. <= rem && rem <= delay) || Frame.is_partial ab) then
     begin
       let m =
         match latest_metadata with
           | Some m -> m
           | None -> Hashtbl.create 0
       in
       ignore(Lang.apply ~t:Lang.unit_t f ["",Lang.float rem;
-                           "",Lang.metadata m]) ;
+                                          "",Lang.metadata m]) ;
       executed <- true
     end ;
     if Frame.is_partial ab then