steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "move a word out of private vocab" 

This reverts commit 978de4476c.
db4
Doug Coleman 2009-08-30 14:53:19 -05:00
parent 4c69f5641c
commit 0f4dce4e4b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/concurrency/messaging/messaging.factor
View File

@ -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