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

pkg/lib: lock clean-up, and add `path->pkg'

Browse Source 
Make the installed-package database lock reentrant, change some
functions to take the lock, and fix the documentation on when a
lock is expected to be taken outside of functions.

original commit: 10e53e3bf4
This commit is contained in:
Matthew Flatt 2013-04-16 08:49:22 -06:00
parent 77833ba35b
commit 4af90112d0
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -108,12 +108,9 @@
[l [l
(for-each do-test l)])] (for-each do-test l)])]
[packages? [packages?
(unless (for*/or ([scope (in-list '(installation user shared))]) (define pd (pkg-directory e))
(define pd (if pd
(parameterize ([current-pkg-scope scope]) (do-test pd)
(with-handlers ([exn:fail? (λ (x) #f)])
(pkg-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)]))