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

planet: adapt to work with Racket CS overlay build

Browse Source
This commit is contained in:
Matthew Flatt 2019-05-22 08:30:41 -06:00
parent 0b74787419
commit 55c8c12f2f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/planet/private/resolver.rkt
View File

@ -192,6 +192,7 @@ See the scribble documentation on the planet/resolver module.
racket/path
racket/file
racket/date
racket/list
net/url
net/head
@ -632,7 +633,14 @@ See the scribble documentation on the planet/resolver module.
pkg-name
(current-time))
(parameterize ([msfh (manager-skip-file-handler)]
[use-compiled-file-paths (list (string->path "compiled"))])
;; Hack to avoid DrRacket's configuration. This will not work
;; right in situtations where `use-compiled-file-paths` is
;; adjusted for other purposes, such as `racket -MCR` mode
;; used for building platform-indepdent bytecode.
[use-compiled-file-paths (let ([l (use-compiled-file-paths)])
(if (pair? l)
(list (last l))
(list (string->path "compiled"))))])
(ipp #f the-dir (list owner pkg-name extra-path maj min))
(unless was-nested?
(planet-terse-log 'docs-build pkg-string)