From e5270ae588cfb55276754171c47530cc143b9944 Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Fri, 23 Oct 2020 13:25:12 -0500 Subject: [PATCH] ensure that the start of next cut is after end of current cut --- ffmpeg-myth.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index d3b1932..a10097c 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -182,10 +182,10 @@ (define (cl l acc) (if (null? l) (reverse acc) (cond ((end-of-cut? (cdar l)) - (cl (cddr l) (append (list (cons (caar l) (caadr l))) acc))) + (cl (cddr l) (if (< (caar l) (caadr l)) (append (list (cons (caar l) (caadr l))) acc) acc))) (#t (cl (cdr l) acc))))) - (if (start-of-cut? (cadar s)) + (if (and (start-of-cut? (cadar s)) (> (caar s) 0)) (set! s (append '((0 0)) s))) (if (end-of-cut? (cadr (last s))) (set! s (append s (list (list (if (null? f) (greatest-fixnum) (caar f)) 1)))))