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

Use the expected installed name instead of the downloaded name when applicable.

Browse Source
This commit is contained in:
Eli Barzilay 2010-11-14 20:40:07 -05:00
parent ee62bae74b
commit 8946d71d66
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/dist-specs.rkt
View File

@ -321,7 +321,10 @@ get-libs: :=
'all-files+sizes))] 'all-files+sizes))]
[xs (or (assq p xs) (error 'get-libs "unknown package, ~s" p))] [xs (or (assq p xs) (error 'get-libs "unknown package, ~s" p))]
[xs (append-map cdr (cdr xs))] [xs (append-map cdr (cdr xs))]
[xs (remove-duplicates (map car xs))]) [xs (map (lambda (x)
(if (>= (length xs) 3) (list-ref xs 2) (car xs)))
xs)]
[xs (remove-duplicates xs)])
`(lib: ,@xs))) `(lib: ,@xs)))
;; ============================================================================ ;; ============================================================================