From 55df8437dfdacdc652fa4ee3869dbe8d0e61d3b4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 2 Aug 2016 10:58:48 -0700 Subject: [PATCH] checksums: fix stack effect of with-checksum-state. --- core/checksums/checksums.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/checksums/checksums.factor b/core/checksums/checksums.factor index 3c1d31d7d1..ca849e1b87 100644 --- 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 )