11 lines
227 B
Scheme
11 lines
227 B
Scheme
(module jas01-test mzscheme
|
|
(define start #f)
|
|
(thread-wait
|
|
(thread
|
|
(lambda ()
|
|
(set! start (dynamic-require "jas01.ss" 'start)))))
|
|
(thread-wait
|
|
(thread
|
|
(lambda ()
|
|
(printf "~S~n" (start 'foo))))))
|