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

win64: remove unneeded command-line parsing hack

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-04 05:20:40 -07:00
parent 5065f39dec
commit d4158cfc9c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/compiler/private/xform.rkt
View File

@ -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)))