steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.wc: use re-decode here also.

handle-patch-and-put
John Benediktsson 2018-08-01 21:03:40 -07:00
parent ed9df3303d
commit 62fd7e3bbd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/tools/wc/wc.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2016 John Benediktsson ! Copyright (C) 2016 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors alien.data command-line formatting io USING: alien.data command-line formatting io io.encodings
io.encodings io.encodings.binary io.files kernel math io.encodings.binary io.files kernel math math.bitwise
math.bitwise math.vectors math.vectors.simd namespaces sequences math.vectors math.vectors.simd namespaces sequences
specialized-arrays ; specialized-arrays ;
SPECIALIZED-ARRAY: uchar-16 SPECIALIZED-ARRAY: uchar-16
@ -27,7 +27,7 @@ IN: tools.wc
] each-block-slice ; inline ] each-block-slice ; inline
: wc-stdin ( -- n ) : wc-stdin ( -- n )
input-stream get dup decoder? [ stream>> ] when input-stream get binary re-decode
[ count-lines ] with-input-stream* ; [ count-lines ] with-input-stream* ;
PRIVATE> PRIVATE>