checksums: fix stack effect of with-checksum-state.

diff --git a/core/checksums/checksums.factor b/core/checksums/checksums.factor
index 3c1d31d7d163d67602ba7667ac72b8fdc416b8df..ca849e1b879e3eaa738467b04c90f59f1b156466 100644 (file)
--- a/core/checksums/checksums.factor
+++ b/core/checksums/checksums.factor
@@ -38,7 +38,7 @@ GENERIC: initialize-checksum-state ( checksum -- checksum-state )
 GENERIC# add-checksum-bytes 1 ( checksum-state data -- checksum-state )
 GENERIC: get-checksum ( checksum-state -- value )
 
-: with-checksum-state ( ... checksum quot: ( ... checksum-state -- ..b ) -- ..b value )
+: with-checksum-state ( ..a checksum quot: ( ..a checksum-state -- ..b ) -- ..b )
     [ initialize-checksum-state ] dip with-disposal ; inline
 
 : add-checksum-stream ( checksum-state stream -- checksum-state )