From ad284de366fefd06c9b111ecaa7df9e45bbd43e2 Mon Sep 17 00:00:00 2001 From: Bogdan Popa Date: Thu, 3 Dec 2020 23:04:12 +0200 Subject: [PATCH] assemble-distribution: convert string relative bases to paths 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?)`. --- racket/collects/compiler/distribute.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/compiler/distribute.rkt b/racket/collects/compiler/distribute.rkt index feb8d11963..85554e3c33 100644 --- a/racket/collects/compiler/distribute.rkt +++ b/racket/collects/compiler/distribute.rkt @@ -138,7 +138,8 @@ (let ([relative->binary-relative (lambda (sub-dir type relative-dir) (cond - [relative-base relative-base] + [relative-base + (if (string? relative-base) (string->path relative-base) relative-base)] [(not executables?) (build-path dest-dir relative-dir)] [sub-dir