From 4c69f5641c95858a5a3fe20e8bb9ade7f27aeb2c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 30 Aug 2009 14:22:09 -0500
Subject: [PATCH] move a word out of private vocab

---
 basis/concurrency/messaging/messaging.factor | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/basis/concurrency/messaging/messaging.factor b/basis/concurrency/messaging/messaging.factor
index 9046604282..e8bf0d9baa 100644
--- 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