fixed path problem

svn: r17675
2010-01-16 17:28:31 +00:00 · 2010-01-16 17:28:31 +00:00 · 7d34a9ecd5
commit 7d34a9ecd5
parent 2dcfe69763
1 changed files with 6 additions and 2 deletions
--- a/collects/2htdp/tests/profile-robby.ss
+++ b/collects/2htdp/tests/profile-robby.ss
@ -1,12 +1,16 @@
 #lang scheme/gui
-(require profile)
+(require profile
+         scheme/runtime-path)
+
+(define-runtime-path perform-robby "perform-robby.ss")
+
 (profile-thunk
 (λ ()
   (parameterize ([current-eventspace (make-eventspace)])
     (let ([s (make-semaphore 0)])
       (queue-callback
        (λ ()
-          (dynamic-require "perform-robby.ss" #f)
+          (dynamic-require perform-robby #f)
          (semaphore-post s)))
       (semaphore-wait s))))
 #:threads #t)