[openfirmware] r1629 - forth/lib
svn at openfirmware.info
svn at openfirmware.info
Thu Dec 17 08:42:02 CET 2009
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
More information about the openfirmware
mailing list