Revert "move a word out of private vocab"

This reverts commit 978de4476c.
2009-08-30 14:53:19 -05:00 · 2009-08-30 14:53:19 -05:00 · 0f4dce4e4b
parent 4c69f5641c
commit 0f4dce4e4b
1 changed files with 4 additions and 0 deletions
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@ -120,11 +120,15 @@ M: cannot-send-synchronous-to-self summary
        '[ _ synchronous-reply? ] (receive-if-timeout) data>>
    ] if ;   

+<PRIVATE
+
 : reply-synchronous ( message synchronous -- )
    dup expired?
    [ 2drop ] 
    [ [ <reply> ] keep sender>> send ] if ;

+PRIVATE>
+
 : handle-synchronous ( quot -- )
    (receive) [
        data>> swap call