Scheme/Lisp 类里面启动线程

;;实现在类里面启动线程
;;代码如下：

(define email% (class object%
   (init)
(super-new)
(define/public (who)  
    (let ((thd-one (thread (lambda ()
                             (thread-suspend thd-one)
                                (void)))))
             (thread-resume thd-one)))))

(define myemail (new email%))
(send myemail who)