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

fixed bug that rendered profiler and test coverage useless

Browse Source 
svn: r3361
This commit is contained in:
Robby Findler 2006-06-14 21:27:18 +00:00
parent 41d79339b9
commit 5875e0b1ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/debug.ss
View File

@ -697,7 +697,7 @@ profile todo:
(let ([rep (drscheme:rep:current-rep)]) (let ([rep (drscheme:rep:current-rep)])
(when rep (when rep
(let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))])
(unless (eq? ut (current-thread)) (when (eq? ut (current-thread))
(let ([ht (make-hash-table)]) (let ([ht (make-hash-table)])
(thread-cell-set! current-test-coverage-info ht) (thread-cell-set! current-test-coverage-info ht)
(send rep set-test-coverage-info ht))))))) (send rep set-test-coverage-info ht)))))))
@ -1058,7 +1058,7 @@ profile todo:
(let ([rep (drscheme:rep:current-rep)]) (let ([rep (drscheme:rep:current-rep)])
(when rep (when rep
(let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))])
(unless (eq? ut (current-thread)) (when (eq? ut (current-thread))
(let ([ht (make-hash-table)]) (let ([ht (make-hash-table)])
(thread-cell-set! current-profile-info ht) (thread-cell-set! current-profile-info ht)
(send (send rep get-context) add-profile-info ht))))))) (send (send rep get-context) add-profile-info ht)))))))