From d48a75eddf3054639a15a98d0ab66ec8f9990140 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 30 Nov 2013 20:17:09 -0700
Subject: [PATCH] make pkg-links: fix to allo "racket" as a dependency

Probably only the "base" package should rely on a "racket" version,
while other packages should rely on a "base" version.
---
 racket/src/link-all.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/racket/src/link-all.rkt b/racket/src/link-all.rkt
index 6ee76353b8..6f2ea61b64 100644
--- a/racket/src/link-all.rkt
+++ b/racket/src/link-all.rkt
@@ -147,7 +147,8 @@
 (define all-pkgs
   (let loop ([all-pkgs pkgs] [pkgs pkgs])
     (define new-pkgs
-      (for/fold ([new-pkgs (set)]) ([pkg-name (in-set pkgs)])
+      (for/fold ([new-pkgs (set)]) ([pkg-name (in-set pkgs)]
+                                    #:unless (equal? pkg-name "racket"))
         (define dir (hash-ref found pkg-name #f))
         (unless dir
           (error 'link-all "requested package not available: ~s" pkg-name))
@@ -162,7 +163,8 @@
          new-pkgs
          (for/set ([dep (in-list deps)]
                    #:unless (or (set-member? all-pkgs dep)
-                                (set-member? pkgs dep)))
+                                (set-member? pkgs dep)
+                                (equal? dep "racket")))
            dep))))
     (if (set-empty? new-pkgs)
         all-pkgs