From bbb8b1a094346cbca311da3ce049d93bca10f5b7 Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Sun, 18 Apr 2021 06:55:32 -0500 Subject: [PATCH] don't use ext, so remove it --- ffmpeg-myth.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index b5c3afc..ebed68d 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -284,7 +284,7 @@ (define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #f)) (let* ((basename (recording-basename rec)) (rootname+ext (string-split basename #\.)) - (rootname (car rootname+ext)) (ext (cadr rootname+ext)) + (rootname (car rootname+ext)) (in-file (simple-format #f "~a/~a" recordings-directory basename)) (out-file (simple-format #f "~a/~a.~a" working-directory rootname transcoded-file-ending)) (m-d (mythtv-recorded-table->metadata rec))