From ce72121c7aae5a45acb3e2e4bce46b6a3765c0c6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 10 Mar 2013 18:45:17 -0700
Subject: [PATCH] basis: End <PRIVATE with PRIVATE>.

---
 basis/io/encodings/gb18030/gb18030.factor     | 2 ++
 basis/io/encodings/iso2022/iso2022.factor     | 2 ++
 basis/io/encodings/shift-jis/shift-jis.factor | 2 ++
 basis/unicode/data/data.factor                | 2 ++
 4 files changed, 8 insertions(+)

diff --git a/basis/io/encodings/gb18030/gb18030.factor b/basis/io/encodings/gb18030/gb18030.factor
index 8691b1c15f..5696733d64 100644
--- a/basis/io/encodings/gb18030/gb18030.factor
+++ b/basis/io/encodings/gb18030/gb18030.factor
@@ -135,3 +135,5 @@ M: gb18030 decode-char ( stream encoding -- char )
         { [ dup quad-1/3? ] [ two-byte ] }
         [ 2drop replacement-char ]
     } cond ;
+
+PRIVATE>
diff --git a/basis/io/encodings/iso2022/iso2022.factor b/basis/io/encodings/iso2022/iso2022.factor
index 6c09ba9e54..cdb45f1449 100644
--- a/basis/io/encodings/iso2022/iso2022.factor
+++ b/basis/io/encodings/iso2022/iso2022.factor
@@ -105,3 +105,5 @@ M:: iso2022-state decode-char ( stream encoding -- char )
             ] [ encoding finish-decode ] if
         ]
     } case ;
+
+PRIVATE>
diff --git a/basis/io/encodings/shift-jis/shift-jis.factor b/basis/io/encodings/shift-jis/shift-jis.factor
index 0d130d9da6..cd848cd6f8 100644
--- a/basis/io/encodings/shift-jis/shift-jis.factor
+++ b/basis/io/encodings/shift-jis/shift-jis.factor
@@ -62,3 +62,5 @@ M: jis decode-char
             [ 2drop replacement-char ] if*
         ] if
     ] [ 2drop f ] if* ;
+
+PRIVATE>
diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 860d5bb56f..b328b075ff 100644
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -216,3 +216,5 @@ load-properties properties swap assoc-union! drop
 
 [ name>char [ "Invalid character" throw ] unless* ]
 name>char-hook set-global
+
+PRIVATE>