steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksums.internet: simplify.

db4
John Benediktsson 2014-02-27 14:03:00 -08:00
parent 5e4ac4b698
commit dae32f2d9d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/checksums/internet/internet.factor
View File

@ -10,7 +10,7 @@ SINGLETON: internet ! RFC 1071
INSTANCE: internet checksum INSTANCE: internet checksum
M: internet checksum-bytes M: internet checksum-bytes
drop 0 swap 2 <groups> [ le> + ] each drop 2 <groups> [ le> ] map-sum
[ -16 shift ] [ 0xffff bitand ] bi + [ -16 shift ] [ 0xffff bitand ] bi +
[ -16 shift ] keep + bitnot 2 >le ; [ -16 shift ] keep + bitnot 2 >le ;