make raco pkg install' call raco setup' via `setup/setup'

Instead of using `system'.
This commit is contained in:
Matthew Flatt 2012-11-28 09:53:20 -07:00
parent 88a729df56
commit abe4c1143f

View File

@ -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."