From f999148fc4359b635c93aba43c0669da3106652a Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Thu, 21 Jan 2021 20:31:28 -0600 Subject: [PATCH] allow re-create-record-data to pass recording records unaltered --- ffmpeg-myth.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index 77f9ebb..3e05a52 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -255,8 +255,9 @@ (make-recording chanid starttime rec-tbl strms-inf i-frm-nfo rtn-lst))) (define (re-create-record-data r-d) - (let ((lookup (lambda (key) (assv-ref r-d key)))) - (apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list))))) + (if (recording? r-d) r-d + (let ((lookup (lambda (key) (assv-ref r-d key)))) + (apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list)))))) (define recording-file-endings3 '("mpg" "mp4" "mkv")) (define recording-file-endings2 '("ts"))