diff --git a/collects/meta/dist-specs.rkt b/collects/meta/dist-specs.rkt index 51fd7a2158..ece9509c83 100644 --- a/collects/meta/dist-specs.rkt +++ b/collects/meta/dist-specs.rkt @@ -321,8 +321,7 @@ get-libs: := 'all-files+sizes))] [xs (or (assq p xs) (error 'get-libs "unknown package, ~s" p))] [xs (append-map cdr (cdr xs))] - [xs (map (lambda (x) - (if (>= (length xs) 3) (list-ref xs 2) (car xs))) + [xs (map (lambda (x) (if (>= (length x) 3) (list-ref x 2) (car x))) xs)] [xs (remove-duplicates xs)]) `(lib: ,@xs)))