parent
4c69f5641c
commit
0f4dce4e4b
|
@ -120,11 +120,15 @@ M: cannot-send-synchronous-to-self summary
|
||||||
'[ _ synchronous-reply? ] (receive-if-timeout) data>>
|
'[ _ synchronous-reply? ] (receive-if-timeout) data>>
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
<PRIVATE
|
||||||
|
|
||||||
: reply-synchronous ( message synchronous -- )
|
: reply-synchronous ( message synchronous -- )
|
||||||
dup expired?
|
dup expired?
|
||||||
[ 2drop ]
|
[ 2drop ]
|
||||||
[ [ <reply> ] keep sender>> send ] if ;
|
[ [ <reply> ] keep sender>> send ] if ;
|
||||||
|
|
||||||
|
PRIVATE>
|
||||||
|
|
||||||
: handle-synchronous ( quot -- )
|
: handle-synchronous ( quot -- )
|
||||||
(receive) [
|
(receive) [
|
||||||
data>> swap call
|
data>> swap call
|
||||||
|
|
Loading…
Reference in New Issue