[Gd-chatter] r11306 - trunk/libraries/gui-sniffer

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Apr 28 02:07:25 2007
New Revision: 11306

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
Log:
Bug: minor
some more functional stuff :)

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Sat Apr 28 02:07:25 2007
@@ -292,11 +292,10 @@
         ret(ff)
       end;
       if (instance?(ff.value, <collection>))
-        for (ele in ff.value, i from 0)
-          if (ele == search)
-            ret(ff.frame-field-list[i])
-          end;
-        end;
+        let framefield = choose-by(curry(\=, search),
+                                   ff.value,
+                                   ff.frame-field-list);
+        if (framefield.size = 1) ret(framefield[0]) end;
       end;
     end;
     #f;
@@ -397,7 +396,7 @@
   start-dialog(make(<about-box>))
 end;
 
-define variable *debugging?* = #f;
+define variable *debugging?* = #t;
 
 define method safe(func :: <function>)
   method(#rest args)
@@ -580,7 +579,7 @@
      stack(ethernet-frame(source-address: data.destination-address,
                           destination-address: data.source-address),
            ipv4-frame(source-address: incoming-ip.destination-address,
-                        destination-address: incoming-ip.source-address),
+                      destination-address: incoming-ip.source-address),
            tcp-frame(source-port: incoming-tcp.destination-port,
                      destination-port: incoming-tcp.source-port,
                      rst: 1,