raco pkg: fix `--scope user' option

This commit is contained in:
Matthew Flatt 2013-04-23 13:37:59 -06:00
parent 147d490f24
commit 8e7ec75ef8

View File

@ -31,7 +31,7 @@
(define (call-with-package-scope who given-scope installation shared user thunk) (define (call-with-package-scope who given-scope installation shared user thunk)
(define scope (define scope
(case given-scope (case given-scope
[(installation use shared) given-scope] [(installation user shared) given-scope]
[else [else
(cond (cond
[installation 'installation] [installation 'installation]