Don't add padding spaces when evaluating headerless words (Mark Cave-Ayland)

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@502 f158a5a8-5612-0410-a976-696ce0be7e32
2024-02-13 08:34:06 +08:00 · 2009-06-06 14:57:25 +00:00
parent a6c558cbf2
commit 0d8df65985
1 changed files with 8 additions and 1 deletions
--- a/forth/bootstrap/bootstrap.fs
+++ b/forth/bootstrap/bootstrap.fs
@@ -1073,7 +1073,14 @@ defer key
  begin @ 
    ?dup while
    dup lfa2name
-    type space
+
+    \ Don't print spaces for headerless words
+    dup if
+      type space
+    else
+      type
+    then
+
  repeat
  cr
  ;