From: Phil Burk <philburk@mobileer.com>
Date: Sun, 27 Dec 2015 07:33:39 +0000 (-0800)
Subject: Merge pull request #13 from philburk/fixrom
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/a1f4e52df60d8f26327ed57f5a9e7b70d0a04273?hp=922f2e38fe5332fae47d11af0473e9662c4b09fb

Merge pull request #13 from philburk/fixrom

Fix $ROM
---

diff --git a/fth/strings.fth b/fth/strings.fth
index 8bead25..dc998ad 100644
--- a/fth/strings.fth
+++ b/fth/strings.fth
@@ -19,7 +19,7 @@ ANEW TASK-STRINGS.FTH
 
 \ Structure of string table
 : $ARRAY  (  )
-    CREATE  ( #strings #chars_max --  ) 
+    CREATE  ( #strings #chars_max --  )
         dup ,
         2+ * even-up allot
     DOES>    ( index -- $addr )
@@ -42,7 +42,7 @@ ANEW TASK-STRINGS.FTH
 : TEXT=  ( addr1 addr2 count -- flag )
     >r -1 -rot
 	r> 0
-    DO  dup c@ tolower
+    ?DO  dup c@ tolower
         2 pick c@ tolower -
         IF rot drop 0 -rot LEAVE
         THEN
@@ -80,7 +80,7 @@ ANEW TASK-STRINGS.FTH
 : ($ROM)  ( index address -- $string )
     ( -- index address )
     swap 0
-    DO dup c@ 1+ + aligned
+    ?DO dup c@ 1+ + aligned
     LOOP
 ;