tools.hexdump: use re-decode.

2018-08-02 13:34:38 -07:00 · 2018-08-02 13:34:38 -07:00 · 8d07e763d9
parent dc25fe3688
commit 8d07e763d9
1 changed files with 1 additions and 2 deletions
--- a/basis/tools/hexdump/hexdump.factor
+++ b/basis/tools/hexdump/hexdump.factor
@ -86,8 +86,7 @@ M: byte-vector hexdump. all-bytes underlying>> hexdump-bytes ;

 : hexdump-main ( -- )
    command-line get [
-        input-stream get dup decoder? [ stream>> ] when
-        hexdump-stream
+        input-stream get binary re-decode hexdump-stream
    ] [
        [ hexdump-file ] each
    ] if-empty ;