nb0yjxtr/ffmpeg-mythtv
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add / separator to pathnames

Browse Source
This commit is contained in:
Leo Butler 2021-04-28 06:25:34 -05:00
parent d88a8b9e9e
commit b5cead5760
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ffmpeg-myth.scm
View File

@ -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 ()