From cd56b670ca17e5af5a87becccb2ef97afbf64378 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 19 Jan 2019 08:48:42 -0700 Subject: [PATCH] io: fix `subprocess` group creation --- racket/src/io/subprocess/main.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/racket/src/io/subprocess/main.rkt b/racket/src/io/subprocess/main.rkt index c1e265af84..a4003627c6 100644 --- a/racket/src/io/subprocess/main.rkt +++ b/racket/src/io/subprocess/main.rkt @@ -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))