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

2014-03-16 05:47:38 -06:00 · 2014-03-16 05:47:38 -06:00 · fc1a86fc69
commit fc1a86fc69
parent 4b4ff3d00b
1 changed files with 6 additions and 4 deletions
--- a/pkgs/plt-services/meta/pkg-push/push-catalog.rkt
+++ b/pkgs/plt-services/meta/pkg-push/push-catalog.rkt
@ -62,10 +62,12 @@
          (loop (set-add pkgs a)
                (set-union
                 r
-                 (apply set (map (lambda (p) (if (pair? p) (car p) p)) 
-                                 (hash-ref (hash-ref new-pkgs a)
-                                           'dependencies
-                                           '()))))))])))
+                 (set-remove
+                  (apply set (map (lambda (p) (if (pair? p) (car p) p)) 
+                                  (hash-ref (hash-ref new-pkgs a)
+                                            'dependencies
+                                            '())))
+                  "racket"))))])))

 (printf "Getting current S3 content...\n")
 (define old-content (list->set (ls (string-append bucket "/pkgs"))))