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

fix collection-file-path & related for binary package installation

Browse Source 
Binary package installation failed in the case of collection
splicing, because module-name resolution via `collection-file-path`
did not check for compiled files along hte search path of
registered collection directories.

original commit: 43d81b06daab9d74493311d02f95eb1c64517f5e
This commit is contained in:
Matthew Flatt 2014-06-02 10:58:59 +01:00
parent 26b2b6c4d7
commit 91eb4c90ac
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
pkgs/compatibility-pkgs/compatibility-lib/mzscheme/private/old-procs.rkt
View File

@ -21,24 +21,25 @@
(define new:collection-path (define new:collection-path
(let ([collection-path (lambda (collection . collections) (let ([collection-path (lambda (collection . collections)
(apply collection-path (collection-path
(lambda (s) (lambda (s)
(raise (raise
(exn:fail:filesystem (exn:fail:filesystem
(string-append "collection-path: " s) (string-append "collection-path: " s)
(current-continuation-marks)))) (current-continuation-marks))))
collection collections))]) collection collections))])
collection-path)) collection-path))
(define new:collection-file-path (define new:collection-file-path
(let ([collection-file-path (lambda (file-name collection . collections) (let ([collection-file-path (lambda (file-name collection . collections)
(apply collection-file-path (collection-file-path
(lambda (s) (lambda (s)
(raise (raise
(exn:fail:filesystem (exn:fail:filesystem
(string-append "collection-file-path: " s) (string-append "collection-file-path: " s)
(current-continuation-marks)))) (current-continuation-marks))))
file-name collection collections))]) #f
file-name collection collections))])
collection-file-path)) collection-file-path))