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 )