r969 - ofw/wifi

Author: wmb
Date: 2008-10-01 19:24:47 +0200 (Wed, 01 Oct 2008)
New Revision: 969

Modified:
   ofw/wifi/eapol.fth
Log:
OLPC trac 8737 - Some wireless access points return malformed scan data.
This change prevents the scan displayer from spewing a lot of junk in that case.

Modified: ofw/wifi/eapol.fth
===================================================================
--- ofw/wifi/eapol.fth	2008-10-01 02:31:15 UTC (rev 968)
+++ ofw/wifi/eapol.fth	2008-10-01 17:24:47 UTC (rev 969)
@@ -504,10 +504,10 @@
    ."   Beacon interval: " dup d# 17 + le-w@ .d cr
    ."   Capabilities: " dup d# 19 + le-w@ cr .cap
    dup le-w@ swap 2 + swap d# 19 /string	( adr' len' )
-   begin  ?dup  while			( adr len )
+   begin  dup 0>  while			( adr len )
       over .ie				( adr len )
       over 1+ c@ 2 + /string		( adr' len' )
-   repeat  drop				( )
+   repeat  2drop			( )
 ;

: .scan  ( adr -- )