19 lines
397 B
Scheme
19 lines
397 B
Scheme
#lang scheme/gui
|
|
(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 #f)
|
|
(semaphore-post s)))
|
|
(semaphore-wait s))))
|
|
#:threads #t)
|
|
|
|
|