X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fio%2Fstreams%2Fcounting%2Fcounting.factor;h=a80ab5055f28926af4175e4fb01d896277f36204;hp=592c761bb44412af58dd10197c98e09c57b1f6b8;hb=726a8b784b91bb5e5d1ee01af46a6b91cf0ff438;hpb=7ce33839919485fa70f2ac825543a73bbb27725c diff --git a/extra/io/streams/counting/counting.factor b/extra/io/streams/counting/counting.factor index 592c761bb4..a80ab5055f 100644 --- a/extra/io/streams/counting/counting.factor +++ b/extra/io/streams/counting/counting.factor @@ -50,4 +50,5 @@ M:: counting-stream stream-contents* ( stream -- seq ) seq ; : with-counting-stream ( stream quot -- in-count out-count ) - [ ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline \ No newline at end of file + [ ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline +