From 0f4dce4e4b6b00ff26eef993b8fb839b43160ef5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 30 Aug 2009 14:53:19 -0500
Subject: [PATCH] Revert "move a word out of private vocab"

This reverts commit 978de4476ccd1acf734c600da1802b1d4e0000df.
---
 basis/concurrency/messaging/messaging.factor | 4 ++++
 1 file changed, 4 insertions(+)

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