[openfirmware] r1629 - forth/lib

[svn at openfirmware.info]

Author: wmb
Date: 2009-12-17 08:42:02 +0100 (Thu, 17 Dec 2009)
New Revision: 1629

Modified:
   forth/lib/fileed.fth
Log:
OLPC trac 9909 - Page Fault on ESC h - (find-previous-word was backing
up before the beginning of the buffer.


Modified: forth/lib/fileed.fth
===================================================================
--- forth/lib/fileed.fth	2009-12-17 05:17:15 UTC (rev 1628)
+++ forth/lib/fileed.fth	2009-12-17 07:42:02 UTC (rev 1629)
@@ -228,6 +228,7 @@
 \ Doesn't move the cursor or change the display.  Internal.
 
 : find-previous-word  ( -- adr )
+   cursor-adr line-start-adr =  if  line-start-adr exit  then
    line-start-adr  dup cursor-adr 1-  ?do   ( linestart )
       i c@  bl <>  if  drop i leave  then
    -1 +loop