From d4158cfc9c048869889b82c6f43c472196aa20e1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 4 Dec 2010 05:20:40 -0700 Subject: [PATCH] win64: remove unneeded command-line parsing hack --- collects/compiler/private/xform.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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)))