r857 - ofw/core

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                          ( )
 ;