From 66b9770f776c2f6e4978fbf79fdf879c044136dc Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Tue, 21 Jun 2016 15:21:17 +0300 Subject: [PATCH] checksums: make add-checksum-bytes a generic word --- core/checksums/checksums.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/core/checksums/checksums.factor b/core/checksums/checksums.factor index bd494bc051..64ddd11be7 100644 --- a/core/checksums/checksums.factor +++ b/core/checksums/checksums.factor @@ -23,9 +23,11 @@ GENERIC: initialize-checksum-state ( checksum -- checksum-state ) GENERIC: checksum-block ( bytes checksum-state -- ) +GENERIC# add-checksum-bytes 1 ( checksum-state bytes -- checksum-state' ) + GENERIC: get-checksum ( checksum-state -- value ) -: add-checksum-bytes ( checksum-state data -- checksum-state ) +M: checksum-state add-checksum-bytes ( checksum-state data -- checksum-state' ) over bytes>> [ push-all ] keep [ dup length pick block-size>> >= ] [