From ec51815923c53e5d5cba7b74b2dfae477eb52ad5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 10 Apr 2013 09:24:14 -0700
Subject: [PATCH] checksums.adler-32: make adler-32 instance checksum.

---
 basis/checksums/adler-32/adler-32.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/basis/checksums/adler-32/adler-32.factor b/basis/checksums/adler-32/adler-32.factor
index f66860dc63..1937503dd9 100644
--- 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