r910 - ofw/fs

Author: wmb
Date: 2008-09-01 23:44:08 +0200 (Mon, 01 Sep 2008)
New Revision: 910

Modified:
   ofw/fs/dropinfs.fth
Log:
dropinfs.fth - fixed the open method so "dir rom:" will work.

Modified: ofw/fs/dropinfs.fth
===================================================================
--- ofw/fs/dropinfs.fth	2008-09-01 21:05:49 UTC (rev 909)
+++ ofw/fs/dropinfs.fth	2008-09-01 21:44:08 UTC (rev 910)
@@ -32,7 +32,9 @@
    0 to base-adr
    0 to seek-ptr                                    ( )
    my-args  dup  if                                 ( adr len )
-      2dup  " "  $=  0=  if                        ( adr len )
+      2dup  " "  $=  if                            ( adr len )
+         2drop true exit
+      else                                          ( adr len )
          over c@  [char] \  =  if  1 /string  then  ( adr' len' )
          find-drop-in  dup  if                      ( di-adr di-len true )
             -rot  to image-size  to base-adr        ( true )