checksums: make add-checksum-bytes a generic word

diff --git a/core/checksums/checksums.factor b/core/checksums/checksums.factor
index bd494bc0513b71989ce8392aca6f6fac81e86a12..64ddd11be711d10ac67c76735c209a307954fa47 100644 (file)
--- 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>> >= ]
     [