checksums.adler-32: make adler-32 instance checksum.

db4
John Benediktsson 2013-04-10 09:24:14 -07:00
parent 7aba741af1
commit ec51815923
1 changed files with 2 additions and 0 deletions

View File

@ -13,3 +13,5 @@ M: adler-32 checksum-bytes ( bytes checksum -- value )
[ sum 1 + ]
[ [ dup length [1,b] <reversed> v. ] [ length ] bi + ] bi
[ adler-32-modulus mod ] bi@ 16 shift bitor ;
INSTANCE: adler-32 checksum