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

2013-04-10 09:24:14 -07:00 · 2013-04-10 09:24:14 -07:00 · 5f6d5722f9
parent 546a7d898c
commit 5f6d5722f9
1 changed files with 2 additions and 0 deletions
--- a/basis/checksums/adler-32/adler-32.factor
+++ b/basis/checksums/adler-32/adler-32.factor
@ -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