[Gd-chatter] r10978 - trunk/libraries/protocols

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Nov 21 20:23:48 2006
New Revision: 10978

Modified:
   trunk/libraries/protocols/ipv4.dylan
Log:
Bug: 7299
*reverted the fixup!-part of my last commit

Modified: trunk/libraries/protocols/ipv4.dylan
==============================================================================
--- trunk/libraries/protocols/ipv4.dylan	(original)
+++ trunk/libraries/protocols/ipv4.dylan	Tue Nov 21 20:23:48 2006
@@ -97,14 +97,12 @@
 end;
 
 define method fixup! (frame :: <unparsed-ipv4-frame>,
-                      foo :: <stretchy-vector-subsequence>,
                       #next next-method)
   frame.header-checksum := calculate-checksum(frame.packet, frame.header-length * 4);
   next-method();
 end;
 
 define method fixup! (frame :: <unparsed-icmp-frame>,
-                      foo :: <stretchy-vector-subsequence>,
                       #next next-method)
   frame.checksum := calculate-checksum(frame.packet, frame.packet.size);
   next-method();
@@ -207,8 +205,7 @@
     length: frame.segment-length;
 end;
 
-define method fixup!(tcp-frame :: <unparsed-tcp-frame>,
-                     foo :: <stretchy-vector-subsequence>,
+define method fixup!(tcp-frame :: <unparsed-tcp-frame>
                      #next next-method)
   let pseudo-header = make(<pseudo-header>,
                            source-address: tcp-frame.parent.source-address,