pr# 12143 raco make -j 2, fix split-path's 'relative to byte-string conversion

This commit is contained in:
Kevin Tew 2011-09-05 17:22:59 -06:00
parent 6d944453a7
commit a6b4b42982

View File

@ -49,7 +49,8 @@
(define (->bytes x)
(cond [(path? x) (path->bytes x)]
[(string? x) (string->bytes/locale x)]))
[(string? x) (string->bytes/locale x)]
[(equal? x 'relative) (->bytes (path->complete-path (current-directory)))]))
(define collects-queue%
(class* object% (work-queue<%>)