move a word out of private vocab

2009-08-30 14:22:09 -05:00 · 2009-08-30 14:22:09 -05:00 · 4c69f5641c
parent 447be26efd
commit 4c69f5641c
1 changed files with 0 additions and 4 deletions
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@ -120,15 +120,11 @@ 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