From abe4c1143f5b209aac6e431acc989eabc33c3bb5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 28 Nov 2012 09:53:20 -0700
Subject: [PATCH] make `raco pkg install' call `raco setup' via `setup/setup'

Instead of using `system'.
---
 collects/planet2/main.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/planet2/main.rkt b/collects/planet2/main.rkt
index fb52c5bcc7..8eed3aa8a7 100644
--- a/collects/planet2/main.rkt
+++ b/collects/planet2/main.rkt
@@ -1,13 +1,13 @@
 #lang racket/base
 (require racket/function
-         racket/system
          "lib.rkt"
-         "commands.rkt")
+         "commands.rkt"
+         (prefix-in setup: setup/setup))
 
 (define (setup dont-setup)
   (unless (or dont-setup
               (equal? "1" (getenv "PLT_PLANET2_DONTSETUP")))
-    (system "raco setup")))
+    (setup:setup)))
 
 (commands
  "This tool is used for managing installed packages."