add debugging print out in shell-command-to-string

2020-07-12 16:02:47 -05:00 · 2020-07-12 16:02:47 -05:00 · 88dcc5b470
parent 076164e4a0
commit 88dcc5b470
1 changed files with 2 additions and 0 deletions
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@ -44,6 +44,8 @@
 	     (wtpd (close-pipe port))
 	     (xval (status:exit-val wtpd)))
 	(if (or (eqv? xval #f) (> xval 0)) (throw 'shell-command-error cmd str))
+	(cond (shell-command-log
+	       (simple-format #t "shell-command-to-string result: ~a\n" str) (force-output)))
 	str))
    ;; handler
    (lambda (key cmd str)