basis: End <PRIVATE with PRIVATE>.

diff --git a/basis/io/encodings/gb18030/gb18030.factor b/basis/io/encodings/gb18030/gb18030.factor
index 8691b1c15fbc2db2e42cb7a089e5c28428a1e934..5696733d6451e9d6b89c97dd95f11495a33d42a1 100644 (file)
--- 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 6c09ba9e541d91e1c821c45404ad9c9ae732ceef..cdb45f1449b12320807d08a6015c3c3ccfbdb12d 100644 (file)
--- 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 0d130d9da60fec0a2a61759d919ffa0fdc4d54f0..cd848cd6f833028d449921fbd42ed44e67f9485e 100644 (file)
--- 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 860d5bb56fa40fbf614265e361cc08147ed8089e..b328b075ff0dd97a3fd9f633cc002e5f341273e8 100644 (file)
--- 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>