diff --git a/collects/compiler/private/xform.rkt b/collects/compiler/private/xform.rkt index 688f1e7d9e..5a8bac0781 100644 --- a/collects/compiler/private/xform.rkt +++ b/collects/compiler/private/xform.rkt @@ -423,13 +423,11 @@ (if (eq? (system-type) 'windows) (lambda (s) (let ([split (let loop ([s s]) - (let ([m (regexp-match #rx"((?:\"[ ()]\"|[^ ])*) (.*)" s)]) + (let ([m (regexp-match #rx"([^ ]*) (.*)" s)]) (if m (cons (cadr m) (loop (caddr m))) (list s))))]) - (apply (verbose process*) (find-executable-path - (regexp-replace* #rx"\"([ ()])\"" (car split) "\\1") - #f) + (apply (verbose process*) (find-executable-path (car split) #f) (cdr split)))) (verbose process)))