From 98546d6c8f48e02034fd925c333d529510a7dd70 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 28 Sep 2009 18:58:20 -0500 Subject: [PATCH] fix checksum protocol -- was hardcoded to a block size of 64 --- core/checksums/checksums.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/checksums/checksums.factor b/core/checksums/checksums.factor index 5fe46b532f..4c55358e56 100644 --- a/core/checksums/checksums.factor +++ b/core/checksums/checksums.factor @@ -27,9 +27,9 @@ GENERIC: get-checksum ( checksum -- value ) over bytes>> [ push-all ] keep [ dup length pick block-size>> >= ] [ - 64 cut-slice [ >byte-array ] dip [ + over block-size>> cut-slice [ >byte-array ] dip [ over [ checksum-block ] - [ [ 64 + ] change-bytes-read drop ] bi + [ [ ] [ block-size>> ] bi [ + ] curry change-bytes-read drop ] bi ] dip ] while >byte-vector