This commit is contained in:
Eli Barzilay 2010-11-15 00:04:11 -05:00
parent 8946d71d66
commit 6ae159e8be

View File

@ -321,8 +321,7 @@ 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 (map (lambda (x) [xs (map (lambda (x) (if (>= (length x) 3) (list-ref x 2) (car x)))
(if (>= (length xs) 3) (list-ref xs 2) (car xs)))
xs)] xs)]
[xs (remove-duplicates xs)]) [xs (remove-duplicates xs)])
`(lib: ,@xs))) `(lib: ,@xs)))