checksums.internet: simplify.

diff --git a/basis/checksums/internet/internet.factor b/basis/checksums/internet/internet.factor
index 5d3b24b3e09e8e49ce1f164dca73969e2bbd49e2..b8175a61d41d69d0bb7b5d8b74108ba7fa8a9c45 100644 (file)
--- a/basis/checksums/internet/internet.factor
+++ b/basis/checksums/internet/internet.factor
@@ -10,7 +10,7 @@ SINGLETON: internet ! RFC 1071
 INSTANCE: internet checksum
 
 M: internet checksum-bytes
-    drop 0 swap 2 <groups> [ le> + ] each
+    drop 2 <groups> [ le> ] map-sum
     [ -16 shift ] [ 0xffff bitand ] bi +
     [ -16 shift ] keep + bitnot 2 >le ;