 
 PRIVATE>
 
-[ mappings [ full-path define-8-bit-encoding ] assoc-each ] with-compilation-unit
+[
+    "io.encodings.8-bit" in [
+        mappings [ full-path define-8-bit-encoding ] assoc-each
+    ] with-variable
+] with-compilation-unit

    2dup swap length <= [ tail ] [ drop ] if ;

: process-contents ( lines -- assoc )
    [ "#" split first ] map
    [ empty? not ] subset
    [ "\t " split 2 head [ 2 tail-if hex> ] map ] map ;

: byte>ch ( assoc -- array )
    256 replacement-char <array>

USING: math.parser arrays io.encodings sequences kernel
assocs hashtables io.encodings.ascii combinators.cleave
generic parser tuples words io io.files splitting namespaces
math compiler.units accessors ;
IN: io.encodings.8-bit

<PRIVATE
