From 5875e0b1cea5eada4a08fa183dd0395593db4edb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 14 Jun 2006 21:27:18 +0000 Subject: [PATCH] fixed bug that rendered profiler and test coverage useless svn: r3361 --- collects/drscheme/private/debug.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss index 90c58a5f68..cf679de815 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.ss @@ -697,7 +697,7 @@ profile todo: (let ([rep (drscheme:rep:current-rep)]) (when rep (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)]) (thread-cell-set! current-test-coverage-info ht) (send rep set-test-coverage-info ht))))))) @@ -1058,7 +1058,7 @@ profile todo: (let ([rep (drscheme:rep:current-rep)]) (when rep (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)]) (thread-cell-set! current-profile-info ht) (send (send rep get-context) add-profile-info ht)))))))