in SHELL-COMMAND-TO-STRING, throw an error upward

We want to treat all errors in SHELL-COMMAND-TO-STRING as fatal unless
the caller installs a handler for ERROR-IN-SHELL-COMMAND-TO-STRING.
This commit is contained in:
Leo Butler 2021-04-18 06:42:22 -05:00
parent af706d5d4b
commit 80111fa2ec
1 changed files with 2 additions and 1 deletions

View File

@ -59,7 +59,8 @@
;; handler
(lambda (key cmd str)
(simple-format #t "ERROR: in command ~a\nstring: ~a\n" cmd str))))
(simple-format #t "ERROR: in command ~a\nstring: ~a\n" cmd str)
(throw 'error-in-shell-command-to-string cmd str))))
(define (mysql-escape-quote str)
;; (string-join (string-split str #\') "'\"'\"'"))