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

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

@ -108,15 +108,12 @@
[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))] (define pd
[cisw (in-list '(#f #t))]) (parameterize ([current-pkg-scope scope])
(define pd (with-handlers ([exn:fail? (λ (x) #f)])
(parameterize ([current-install-version-specific? civs] (pkg-directory e))))
[current-install-system-wide? cisw]) (and pd (do-test pd)))
(with-handlers ([exn:fail? (λ (x) #f)])
(package-directory e))))
(and pd (do-test pd)))
(error 'test "Package ~e is not installed" e))] (error 'test "Package ~e is not installed" e))]
[else [else
(do-test e)])) (do-test e)]))