[Gd-chatter] r11568 - trunk/libraries/network-interfaces

[andreas at gwydiondylan.org]

Author: andreas
Date: Fri Dec 21 03:23:29 2007
New Revision: 11568

Modified:
   trunk/libraries/network-interfaces/pcap-library.dylan
   trunk/libraries/network-interfaces/pcap.dylan
Log:
job: 7299

Fix the Windows build. 


Modified: trunk/libraries/network-interfaces/pcap-library.dylan
==============================================================================
--- trunk/libraries/network-interfaces/pcap-library.dylan	(original)
+++ trunk/libraries/network-interfaces/pcap-library.dylan	Fri Dec 21 03:23:29 2007
@@ -35,7 +35,7 @@
   use cidr, import: { <cidr>, netmask-from-byte-vector };
   use packetizer,
     import: { parse-frame,
-              <ethernet-frame>,
+              <frame>,
               assemble-frame,
               packet,
               <stretchy-vector-subsequence> };

Modified: trunk/libraries/network-interfaces/pcap.dylan
==============================================================================
--- trunk/libraries/network-interfaces/pcap.dylan	(original)
+++ trunk/libraries/network-interfaces/pcap.dylan	Fri Dec 21 03:23:29 2007
@@ -231,7 +231,7 @@
 
 define method push-data-aux (input :: <push-input>,
                              node :: <ethernet-interface>,
-                             frame :: <ethernet-frame>)
+                             frame :: <frame>)
   let buffer = as(<byte-vector>, assemble-frame(frame).packet);
   pcap-inject(node.pcap-t, buffer-offset(buffer, 0), buffer.size);
 end;