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

assemble-distribution: convert string relative bases to paths

Browse Source 
Fixes an issue where the distribution assembler expects these to be
`path?`s.

I originally considered making this change in the ctool command in
`cext-lib` instead, but then I noticed the documented contract for
`assemble-distribution` is `(or/c #f path-string?)`.
This commit is contained in:
Bogdan Popa 2020-12-03 23:04:12 +02:00 committed by Matthew Flatt
parent c71e6289af
commit ad284de366
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/compiler/distribute.rkt
View File

@ -138,7 +138,8 @@
(let ([relative->binary-relative (let ([relative->binary-relative
(lambda (sub-dir type relative-dir) (lambda (sub-dir type relative-dir)
(cond (cond
[relative-base relative-base] [relative-base
(if (string? relative-base) (string->path relative-base) relative-base)]
[(not executables?) [(not executables?)
(build-path dest-dir relative-dir)] (build-path dest-dir relative-dir)]
[sub-dir [sub-dir