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

meta/pkg-push: fix for "racket" package

Browse Source
This commit is contained in:
Matthew Flatt 2014-03-16 05:47:38 -06:00
parent 4b4ff3d00b
commit fc1a86fc69
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/plt-services/meta/pkg-push/push-catalog.rkt
View File

@ -62,10 +62,12 @@
(loop (set-add pkgs a) (loop (set-add pkgs a)
(set-union (set-union
r r
(apply set (map (lambda (p) (if (pair? p) (car p) p)) (set-remove
(hash-ref (hash-ref new-pkgs a) (apply set (map (lambda (p) (if (pair? p) (car p) p))
'dependencies (hash-ref (hash-ref new-pkgs a)
'()))))))]))) 'dependencies
'())))
"racket"))))])))
(printf "Getting current S3 content...\n") (printf "Getting current S3 content...\n")
(define old-content (list->set (ls (string-append bucket "/pkgs")))) (define old-content (list->set (ls (string-append bucket "/pkgs"))))