[Gd-chatter] r10955 - trunk/libraries/network-flow

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Nov 14 20:34:18 2006
New Revision: 10955

Modified:
   trunk/libraries/network-flow/network-flow.dylan
Log:
Bug: 7299
*fix writing of pcap files (assemble-frame returns an <unparsed-container-frame>)

Modified: trunk/libraries/network-flow/network-flow.dylan
==============================================================================
--- trunk/libraries/network-flow/network-flow.dylan	(original)
+++ trunk/libraries/network-flow/network-flow.dylan	Tue Nov 14 20:34:18 2006
@@ -169,7 +169,7 @@
 define method initialize (writer :: <pcap-file-writer>,
                           #rest rest, #key, #all-keys)
   next-method();
-  write(writer.file-stream, assemble-frame(make(<pcap-file-header>)));
+  write(writer.file-stream, packet(assemble-frame(make(<pcap-file-header>))));
   force-output(writer.file-stream);
 end;
 
@@ -186,7 +186,7 @@
                              node :: <pcap-file-writer>,
                              frame :: <pcap-packet>)
   write(node.file-stream,
-        assemble-frame(frame));
+        packet(assemble-frame(frame)));
   force-output(node.file-stream);
 end;