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

correction to unixstyle-install for libzo mode

Browse Source
This commit is contained in:
Matthew Flatt 2021-02-21 09:41:05 -07:00
parent 4df60bb819
commit 441cf9a85c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/setup/unixstyle-install.rkt
View File

@ -410,6 +410,9 @@
(define (ftime file) (define (ftime file)
(and (file-exists? file) (file-or-directory-modify-seconds file))) (and (file-exists? file) (file-or-directory-modify-seconds file)))
(let* ([src (cpath "config.rktd")]) (let* ([src (cpath "config.rktd")])
(define link-shared?
;; before "config.rktd" is potentially modified:
(eq? 'shared (cross-system-type 'link)))
(printf "Rewriting configuration file at: ~a...\n" src) (printf "Rewriting configuration file at: ~a...\n" src)
(define old (or (and (file-exists? src) (define old (or (and (file-exists? src)
(call-with-input-file src read)) (call-with-input-file src read))
@ -423,7 +426,7 @@
(printf ";; generated by unixstyle-install\n") (printf ";; generated by unixstyle-install\n")
(printf "#hash(\n") (printf "#hash(\n")
(out! 'doc-dir (dir: 'doc)) (out! 'doc-dir (dir: 'doc))
(when (eq? 'shared (cross-system-type 'link)) ; never true for now (when link-shared? ; never true for now
(out! 'dll-dir (dir: 'lib))) (out! 'dll-dir (dir: 'lib)))
(out! 'lib-dir (dir: 'librkt)) (out! 'lib-dir (dir: 'librkt))
(out! 'pkgs-dir (dir: 'pkgs)) (out! 'pkgs-dir (dir: 'pkgs))