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

fix a `raco exe' problem with finding shared-library paths

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-20 19:44:39 -07:00
parent aadb1b60bb
commit ac99c69f0c
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/compiler/embed-unit.rkt
View File

@ -811,6 +811,16 @@
p2
path)))]
[else path]))
(define (path-extra-suffix p sfx)
;; Library names may have a version number preceded
;; by a ".", which looks like a suffix, so add the
;; shared-library suffix using plain-old bytes append:
(let-values ([(base name dir?) (split-path p)])
(let ([name (bytes->path (bytes-append (path->bytes name) sfx))])
(if (path? base)
(build-path base name)
name))))
;; Write a module bundle that can be loaded with 'load' (do not embed it
;; into an executable). The bundle is written to the current output port.
@ -946,8 +956,8 @@
(eq? 'so (car p)))
(let ([fs (list
(cadr p)
(path-replace-suffix (cadr p)
(system-type 'so-suffix)))])
(path-extra-suffix (cadr p)
(system-type 'so-suffix)))])
(ormap (lambda (f)
(ormap (lambda (p)
(let ([p (build-path p f)])