[OpenBIOS] [PATCH 1/5] interpreter.fs: allow evaluate to split words on CR as well as LF

[Cormac O'Brien]

Otherwise the Forth intepreter fails due to lack of buffer space when
trying to execute large boot scripts on platforms that use CR instead
of LF for line endings (particularly MacOS 9).

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at ilande.co.uk>
Signed-off-by: Cormac O'Brien <cormac at c-obrien.org>
---
 forth/bootstrap/interpreter.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/forth/bootstrap/interpreter.fs b/forth/bootstrap/interpreter.fs
index 5187058..5c3e469 100644
--- a/forth/bootstrap/interpreter.fs
+++ b/forth/bootstrap/interpreter.fs
@@ -163,7 +163,7 @@ defer outer-interpreter
 : evaluate ( str len -- ?? )
   2dup + -rot
   over + over do 
-    i c@ 0a = if 
+    i c@ dup 0a = swap 0d = or if
       i over - 
       (evaluate)
       i 1+ 
-- 
2.5.0