From f7e2f3af795311a9d92aa62bdcb37180750eab17 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 10 Jul 2016 11:40:16 -0500 Subject: [PATCH] checksums.common: don't need next-level anymore thanks to cleanup. --- basis/checksums/common/common.factor | 3 --- 1 file changed, 3 deletions(-) diff --git a/basis/checksums/common/common.factor b/basis/checksums/common/common.factor index 687a09386e..2f24b3a54a 100644 --- a/basis/checksums/common/common.factor +++ b/basis/checksums/common/common.factor @@ -38,9 +38,6 @@ GENERIC: checksum-block ( bytes checksum-state -- ) GENERIC: get-checksum ( checksum-state -- value ) -: next-level ( n size -- n' ) - 2dup mod [ + ] [ - + ] if-zero ; inline - ! Update the bytes-read before calculating checksum in case ! checksum uses this in the calculation. :: add-checksum-bytes ( checksum-state data -- checksum-state' )