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

fixed path problem

Browse Source 
svn: r17675
This commit is contained in:
Robby Findler 2010-01-16 17:28:31 +00:00
parent 2dcfe69763
commit 7d34a9ecd5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/2htdp/tests/profile-robby.ss
View File

@ -1,12 +1,16 @@
#lang scheme/gui #lang scheme/gui
(require profile) (require profile
scheme/runtime-path)
(define-runtime-path perform-robby "perform-robby.ss")
(profile-thunk (profile-thunk
(λ () (λ ()
(parameterize ([current-eventspace (make-eventspace)]) (parameterize ([current-eventspace (make-eventspace)])
(let ([s (make-semaphore 0)]) (let ([s (make-semaphore 0)])
(queue-callback (queue-callback
(λ () (λ ()
(dynamic-require "perform-robby.ss" #f) (dynamic-require perform-robby #f)
(semaphore-post s))) (semaphore-post s)))
(semaphore-wait s)))) (semaphore-wait s))))
#:threads #t) #:threads #t)