tools.hexdump: use re-decode.
parent
dc25fe3688
commit
8d07e763d9
|
@ -86,8 +86,7 @@ M: byte-vector hexdump. all-bytes underlying>> hexdump-bytes ;
|
||||||
|
|
||||||
: hexdump-main ( -- )
|
: hexdump-main ( -- )
|
||||||
command-line get [
|
command-line get [
|
||||||
input-stream get dup decoder? [ stream>> ] when
|
input-stream get binary re-decode hexdump-stream
|
||||||
hexdump-stream
|
|
||||||
] [
|
] [
|
||||||
[ hexdump-file ] each
|
[ hexdump-file ] each
|
||||||
] if-empty ;
|
] if-empty ;
|
||||||
|
|
Loading…
Reference in New Issue