cs: fix shell-execute error reporting

Closes #3465
2020-10-25 19:29:06 -06:00 · 2020-10-25 19:29:06 -06:00 · 0b42a143af
commit 0b42a143af
parent 7bec281f98
2 changed files with 6 additions and 3 deletions
--- a/racket/src/cs/schemified/io.scm
+++ b/racket/src/cs/schemified/io.scm
@ -36594,10 +36594,13 @@
                                 show_mode_0))))))
                     (begin
                       (if (vector? r_0)
-                         (let ((err_0 "failed"))
+                         (let ((base-msg_0 "failed"))
                           (raise
                            (let ((app_0
-                                   (format-rktio-message 'who err_0 r_0)))
+                                   (format-rktio-message
+                                    'shell-execute
+                                    r_0
+                                    base-msg_0)))
                              (|#%app|
                               exn:fail
                               app_0
--- a/racket/src/io/subprocess/main.rkt
+++ b/racket/src/io/subprocess/main.rkt
@ -303,7 +303,7 @@
                                 (string->bytes/utf-8 parameters)
                                 (->host (->path dir) who '(exists))
                                 show_mode))
-  (when (rktio-error? r) (raise-rktio-error 'who "failed" r))
+  (when (rktio-error? r) (raise-rktio-error who r "failed"))
  #f)

 ;; ----------------------------------------