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

dont use fry in core

db4
Doug Coleman 2009-05-16 15:17:20 -05:00
parent b819f9d11c
commit d1468a33d1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/checksums/checksums.factor
View File

@ -1,7 +1,7 @@
! Copyright (c) 2008 Slava Pestov ! Copyright (c) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io io.backend io.files kernel math math.parser USING: accessors io io.backend io.files kernel math math.parser
sequences vectors io.encodings.binary ; sequences vectors io.encodings.binary quotations ;
IN: checksums IN: checksums
MIXIN: checksum MIXIN: checksum
@ -30,7 +30,7 @@ GENERIC: get-checksum ( checksum -- value )
: add-checksum-stream ( checksum-state stream -- checksum-state ) : add-checksum-stream ( checksum-state stream -- checksum-state )
[ [
[ '[ [ _ ] dip add-checksum-bytes drop ] each-block ] keep [ [ swap add-checksum-bytes drop ] curry each-block ] keep
] with-input-stream ; ] with-input-stream ;
: add-checksum-file ( checksum-state path -- checksum-state ) : add-checksum-file ( checksum-state path -- checksum-state )