[openfirmware] r857 - ofw/core
svn at openfirmware.info
svn at openfirmware.info
Wed Jul 23 11:29:00 CEST 2008
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 ( )
;
More information about the openfirmware
mailing list