suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pkg/lib: clean up names and package-scope parameter

Browse Source 
More consistent exported names and parameters that better match the
three scope choices (installation, user, or shared) --- cleaning up
after myself.

original commit: 267ac03279
This commit is contained in:
Matthew Flatt 2013-04-16 07:08:20 -06:00
parent ab3a963a1b
commit 77833ba35b
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/compiler/commands/test.rkt
View File

@ -108,14 +108,11 @@
[l [l
(for-each do-test l)])] (for-each do-test l)])]
[packages? [packages?
(unless (unless (for*/or ([scope (in-list '(installation user shared))])
(for*/or ([civs (in-list '(#t #f))]
[cisw (in-list '(#f #t))])
(define pd (define pd
(parameterize ([current-install-version-specific? civs] (parameterize ([current-pkg-scope scope])
[current-install-system-wide? cisw])
(with-handlers ([exn:fail? (λ (x) #f)]) (with-handlers ([exn:fail? (λ (x) #f)])
(package-directory e)))) (pkg-directory e))))
(and pd (do-test pd))) (and pd (do-test pd)))
(error 'test "Package ~e is not installed" e))] (error 'test "Package ~e is not installed" e))]
[else [else