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

io: fix subprocess group creation

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-19 08:48:42 -07:00
parent 21712fecc9
commit cd56b670ca
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,7 +67,9 @@
[(or (not group/command)
(eq? group/command 'new)
(subprocess? group/command))
(define command (cadr command/args))
(unless (pair? command/args)
(raise-arguments-error who "missing command argument after group argument"))
(define command (car command/args))
(check who path-string? command)
(values group/command command (cdr command/args))]
[else
@ -131,7 +133,7 @@
(and stdout (fd-port-fd stdout))
(and stdin (fd-port-fd stdin))
(and stderr (not (eq? stderr 'stdout)) (fd-port-fd stderr))
(and group (subprocess-process group))
(and (subprocess? group) (subprocess-process group))
(->host (current-directory) #f null)
envvars flags))