Author: wmb Date: 2008-07-23 11:29:00 +0200 (Wed, 23 Jul 2008) New Revision: 857
Modified: ofw/core/filecmds.fth Log: filecmds.fth - fixed bug in rev 849 - ls-r gave General Protection Fault if exited prematurely by typing 'q' during pagination.
Modified: ofw/core/filecmds.fth =================================================================== --- ofw/core/filecmds.fth 2008-07-23 08:48:56 UTC (rev 856) +++ ofw/core/filecmds.fth 2008-07-23 09:29:00 UTC (rev 857) @@ -446,7 +446,7 @@ begin-search 0. ( d.totsize ) begin another-match? while ( d.totsize 8*attributes name$ ) handle-dirent d+ ( d.totsize' ) - exit? if close-search 2drop r> 2drop exit then + exit? if close-search 2drop 2r> 2drop exit then repeat ( d.totsize r: pattern$ ) 2r> .totsize ( ) ;