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

Cormac O'Brien cormac at c-obrien.org
Thu Aug 20 22:45:13 CET 2015


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




More information about the OpenBIOS mailing list