basis: End <PRIVATE with PRIVATE>.

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>

basis/io/encodings/iso2022/iso2022.factor

@@ -105,3 +105,5 @@ M:: iso2022-state decode-char ( stream encoding -- char )
             ] [ encoding finish-decode ] if
         ]
     } case ;
+
+PRIVATE>

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>

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>