26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(module
nmsg-transport
(
nmsg:start-server
nmsg:open-send-close
nmsg:open-send-receive
nmsg:recv
nmsg:close
)
(import scheme posix chicken data-structures ports)
(use nanomsg srfi-18)
|
>
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(module
nmsg-transport
(
nmsg:start-server
nmsg:open-send-close
nmsg:open-send-receive
nmsg:recv
nmsg:send
nmsg:close
)
(import scheme posix chicken data-structures ports)
(use nanomsg srfi-18)
|
111
112
113
114
115
116
117
118
119
|
(thread-start! th1)
(thread-start! th2)
(thread-join! th1)
res))))
(define nmsg:close nn-close)
(define nmsg:recv nn-recv)
)
|
>
|
112
113
114
115
116
117
118
119
120
121
|
(thread-start! th1)
(thread-start! th2)
(thread-join! th1)
res))))
(define nmsg:close nn-close)
(define nmsg:recv nn-recv)
(define nmsg:send nn-send)
)
|