setup-euc ( word file-name -- singleton-class biassoc )

Vocabulary

io.encodings.euc.private

Inputs

word	an object
file-name	an object

Outputs

singleton-class	an object
biassoc	an object

Definition

USING: classes.singleton kernel simple-flat-file ;

IN: io.encodings.euc.private

: setup-euc ( word file-name -- singleton-class biassoc )
    [ dup define-singleton-class ] [ load-codetable-file ] bi* ;