checksums.common: don't need next-level anymore thanks to cleanup.

diff --git a/basis/checksums/common/common.factor b/basis/checksums/common/common.factor
index 687a09386ebfaacf8d29e8de84b4b716c881235f..2f24b3a54ac16814bd5a7184a1e3a5f707f04f48 100644 (file)
--- 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' )