50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
;;
;; ulex
;;
;; wait-and-close
;; run-listener
)
(define-syntax run-in-thread
(syntax-rules ()
((_ body ...)
(let ((th1 (make-thread (lambda ()
body ...)
"the thread")))
(thread-start! th1)
(thread-join! th1)))))
(test #f #t (servdat? (let ((s (make-servdat)))
(set! *servdat* s)
s)))
(test #f #f (rmt:get-conn *servdat* *toppath* ".db/main.db"))
(test #f #f (rmt:find-main-server *servdat* *toppath* ".db/main.db"))
(define th1 (make-thread (lambda ()
|
<
<
<
<
<
<
<
<
<
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
;;
;; ulex
;;
;; wait-and-close
;; run-listener
)
(test #f #t (servdat? (let ((s (make-servdat)))
(set! *servdat* s)
s)))
(test #f #f (rmt:get-conn *servdat* *toppath* ".db/main.db"))
(test #f #f (rmt:find-main-server *servdat* *toppath* ".db/main.db"))
(define th1 (make-thread (lambda ()
|