followup fix that should probably have been in a7c6dfa05

This commit is contained in:
Robby Findler 2013-12-03 09:44:02 -06:00
parent e9b0975838
commit 65334e6931

View File

@ -172,7 +172,8 @@
(cond (cond
[(eq? (system-type) 'windows) [(eq? (system-type) 'windows)
(cond (cond
[(or (regexp-match? #rx"a:c" cs) [(or (and (regexp-match? #rx"a:c" cs)
(not (regexp-match? #rx"~a:c" cs)))
(and (regexp-match? #rx"c:m" cs) (and (regexp-match? #rx"c:m" cs)
(not (regexp-match? #rx"~c:m" cs)))) (not (regexp-match? #rx"~c:m" cs))))
#f] #f]