 H{ } *iso2022kr-status* set-global
 
 : iso2022kr-stream-get-status ( stream -- so/si/f )
-    *iso2022kr-status* get-global swap at ;
+    *iso2022kr-status* get-global at ;
 
 : iso2022kr-stream-get-status* ( stream -- so/si )
     iso2022kr-stream-get-status

    ] ;




PRIVATE>

:: iso2022kr-stream-set-status ( stream so/si -- )
    so/si stream *iso2022kr-status* get-global set-at ;



M: iso2022kr encode-char ( char stream encoding -- )
