From df868fa97238f36d51f50e323ee5fcd32c489a0d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 16 Apr 2016 16:38:42 -0700
Subject: [PATCH] soundex: make implementation private.

---
 basis/soundex/soundex.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/soundex/soundex.factor b/basis/soundex/soundex.factor
index 28e43a36e1..13a7e9e2ec 100644
--- a/basis/soundex/soundex.factor
+++ b/basis/soundex/soundex.factor
@@ -3,6 +3,8 @@
 USING: ascii kernel sequences tr ;
 IN: soundex
 
+<PRIVATE
+
 TR: soundex-digits
     "AEHIOUWYBFPVCGJKQSXZDTLMNR"
     "AEHIOUWY111122222222334556" ;
@@ -23,6 +25,8 @@ TR: soundex-digits
 : ?replace-first ( seq first -- seq )
     over first digit? [ over set-first ] [ drop ] if ;
 
+PRIVATE>
+
 : soundex ( string -- soundex )
     >upper [ LETTER? ] filter [
         remove-hw