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

add missing lock acquire

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-03 13:56:18 -06:00
parent 999afcf07f
commit df30e9c148
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
racket/src/link-all.rkt
View File

@ -167,22 +167,23 @@
(void (void
(parameterize ([current-pkg-scope (path->complete-path devel-pkgs-dir)]) (parameterize ([current-pkg-scope (path->complete-path devel-pkgs-dir)])
(define (is-auto? name) (not (set-member? pkgs name))) (define (is-auto? name) (not (set-member? pkgs name)))
(pkg-install (for/list ([name (in-list (sort (set->list all-pkgs) (with-pkg-lock
;; Non-auto before auto: (pkg-install (for/list ([name (in-list (sort (set->list all-pkgs)
(lambda (a b) ;; Non-auto before auto:
(cond (lambda (a b)
[(is-auto? a) (cond
(and (is-auto? b) [(is-auto? a)
(string<? a b))] (and (is-auto? b)
[(is-auto? b) #t] (string<? a b))]
[else (string<? a b)]))))]) [(is-auto? b) #t]
(define dir (hash-ref found name)) [else (string<? a b)]))))])
(define auto? (is-auto? name)) (define dir (hash-ref found name))
(printf "Adding ~a~a as ~a\n" name (if auto? "*" "") dir) (define auto? (is-auto? name))
(pkg-desc (path->string dir) (printf "Adding ~a~a as ~a\n" name (if auto? "*" "") dir)
'static-link (pkg-desc (path->string dir)
#f 'static-link
auto?))))) #f
auto?))))))
;; link configuration ;; link configuration
(unless (file-exists? config-file-path) (unless (file-exists? config-file-path)