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

Branch remove fix

Browse Source
This commit is contained in:
Jay McCarthy 2012-05-10 09:56:23 -06:00
parent 2d027e7ee5
commit 042defedb6
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/drdr/metadata.rkt
View File

@ -68,10 +68,11 @@
tmp-file) tmp-file)
; Dynamic require it ; Dynamic require it
(begin0 (begin0
(with-handlers ([exn? (λ (x) #f)])
(dynamic-require `(file ,(path->string tmp-file)) (dynamic-require `(file ,(path->string tmp-file))
'get-prop) 'get-prop))
(delete-file tmp-file)))))) (delete-file tmp-file))))))
(unless props:get-prop #;(unless props:get-prop
(error 'get-prop "Could not load props file for ~e" (current-rev))) (error 'get-prop "Could not load props file for ~e" (current-rev)))
; XXX get-prop is stupid and errors when a-path is invalid rather than returning def ; XXX get-prop is stupid and errors when a-path is invalid rather than returning def
(with-handlers ([exn? (lambda (x) def)]) (with-handlers ([exn? (lambda (x) def)])

3
collects/meta/drdr/plt-build.rkt
View File

@ -320,9 +320,10 @@
; And go ; And go
(define top-sema (make-semaphore 0)) (define top-sema (make-semaphore 0))
(notify! "Starting testing") (notify! "Starting testing")
(when (directory-exists? collects-pth)
(test-directory collects-pth top-sema) (test-directory collects-pth top-sema)
(notify! "All testing scheduled... waiting for completion") (notify! "All testing scheduled... waiting for completion")
(semaphore-wait top-sema) (semaphore-wait top-sema))
(notify! "Stopping testing") (notify! "Stopping testing")
(stop-job-queue! test-workers)) (stop-job-queue! test-workers))