~cannam/bsq-samplestreams commit

0229d817264c — Chris Cannam 2 years ago

Fix state when seeking 1-1 resampler stream

patch browse

1 files changed, 4 insertions(+), 1 deletions(-)

M resampling-fn.sml

M resampling-fn.sml +4 -1

@@ 178,7 178,10 @@ functor ResamplingStatefulStreamFn (S: R
             if target < 0
             then false
             else if not (Option.isSome resampler)
-            then S.seek (upstream, m, t)
+            then if S.seek (upstream, m, t)
+                 then (reset s;
+                       true)
+                 else false
             else case simpleFactorStatus s of
                      NOT_SIMPLE => false
                    | UP n =>