fix improperly loading module-suffixes
This commit is contained in:
parent
8370643309
commit
2940a186ab
|
@ -243,7 +243,10 @@
|
||||||
(case new-omits
|
(case new-omits
|
||||||
[(#f) null]
|
[(#f) null]
|
||||||
[(all) (->absolute (current-directory))]
|
[(all) (->absolute (current-directory))]
|
||||||
[else (map (lambda (x) (if (regexp? x) x (->absolute x)))
|
[else (map (lambda (x)
|
||||||
|
(cond [(regexp? x) x]
|
||||||
|
[(bytes? x) (regexp (bytes->string/locale x))]
|
||||||
|
[else (->absolute x)]))
|
||||||
new-omits)]))
|
new-omits)]))
|
||||||
|
|
||||||
(define (path-add-argv path argvs)
|
(define (path-add-argv path argvs)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user