basis: removing unnecessary method stack effects.

[factor.git] / basis / checksums / adler-32 / adler-32.factor

diff --git a/basis/checksums/adler-32/adler-32.factor b/basis/checksums/adler-32/adler-32.factor
index 67c2842b74b5bf0f863c4308dae441c76d3eb37b..0fc9985d607f63ca6762df87eadd7a51b09d077e 100644 (file)
--- a/basis/checksums/adler-32/adler-32.factor
+++ b/basis/checksums/adler-32/adler-32.factor
@@ -8,7 +8,7 @@ SINGLETON: adler-32
 
 CONSTANT: adler-32-modulus 65521
 
-M: adler-32 checksum-bytes ( bytes checksum -- value )
+M: adler-32 checksum-bytes
     drop
     [ sum 1 + ]
     [ [ dup length [1,b] <reversed> vdot ] [ length ] bi + ] bi