checksums.internet: simplify.

2014-02-27 14:03:00 -08:00 · 2014-02-27 14:03:00 -08:00 · dae32f2d9d
parent 5e4ac4b698
commit dae32f2d9d
1 changed files with 1 additions and 1 deletions
--- 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 ;