From b5cead57609439964f5dc593f683095bbb33e74a Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Wed, 28 Apr 2021 06:25:34 -0500 Subject: [PATCH] add / separator to pathnames --- ffmpeg-myth.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index 4255e3c..76a4991 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -482,7 +482,7 @@ '()) (#t (simple-format #t "myth-clean-recording-directory: removing transcoded files\n~a\n" (string-join expired-recordings ",")) - (let ((cmd (simple-format #f "~a ~a" shell-cmd (string-join (map (lambda(s) (string-concatenate (list recordings-directory s))) expired-recordings) " ")))) + (let ((cmd (simple-format #f "~a ~a" shell-cmd (string-join (map (lambda(s) (string-concatenate (list recordings-directory "/" s))) expired-recordings) " ")))) (catch 'error-in-shell-command-to-string ;; thunk - return expired-recordings list (lambda ()