r1532 - ofw/fs

Author: wmb
Date: 2009-12-02 15:26:50 +0100 (Wed, 02 Dec 2009)
New Revision: 1532

Modified:
   ofw/fs/zipfs.fth
Log:
OLPC Trac 9784 - fixed zip decoding bug introduced by recent revamp of zip filesystem code.

Modified: ofw/fs/zipfs.fth
===================================================================
--- ofw/fs/zipfs.fth	2009-12-02 12:13:46 UTC (rev 1531)
+++ ofw/fs/zipfs.fth	2009-12-02 14:26:50 UTC (rev 1532)
@@ -155,7 +155,7 @@
 : read-end-header  ( -- )   zip-buffer  /end-header  read drop  ;

: first-file-header  ( -- false | id true )
-   d# 2000  4  do
+   d# 2000  0  do
       i get-file-header?  if  true unloop exit  else  drop  then  ( )
    loop
    0