suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix shell-execute error reporting

Browse Source 
Closes #3465
This commit is contained in:
Matthew Flatt 2020-10-25 19:29:06 -06:00
parent 7bec281f98
commit 0b42a143af
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/cs/schemified/io.scm
View File

@ -36594,10 +36594,13 @@
show_mode_0)))))) show_mode_0))))))
(begin (begin
(if (vector? r_0) (if (vector? r_0)
(let ((err_0 "failed")) (let ((base-msg_0 "failed"))
(raise (raise
(let ((app_0 (let ((app_0
(format-rktio-message 'who err_0 r_0))) (format-rktio-message
'shell-execute
r_0
base-msg_0)))
(|#%app| (|#%app|
exn:fail exn:fail
app_0 app_0

2
racket/src/io/subprocess/main.rkt
View File

@ -303,7 +303,7 @@
(string->bytes/utf-8 parameters) (string->bytes/utf-8 parameters)
(->host (->path dir) who '(exists)) (->host (->path dir) who '(exists))
show_mode)) show_mode))
(when (rktio-error? r) (raise-rktio-error 'who "failed" r)) (when (rktio-error? r) (raise-rktio-error who r "failed"))
#f) #f)
;; ---------------------------------------- ;; ----------------------------------------