[OpenBIOS] r502 - trunk/openbios-devel/forth/bootstrap

[svn at openbios.org]

Author: blueswirl
Date: 2009-06-06 16:57:25 +0200 (Sat, 06 Jun 2009)
New Revision: 502

Modified:
   trunk/openbios-devel/forth/bootstrap/bootstrap.fs
Log:
Don't add padding spaces when evaluating headerless words (Mark Cave-Ayland)

Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs
===================================================================
--- trunk/openbios-devel/forth/bootstrap/bootstrap.fs	2009-06-06 09:58:11 UTC (rev 501)
+++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs	2009-06-06 14:57:25 UTC (rev 502)
@@ -1073,7 +1073,14 @@
   begin @ 
     ?dup while
     dup lfa2name
-    type space
+
+    \ Don't print spaces for headerless words
+    dup if
+      type space
+    else
+      type
+    then
+
   repeat
   cr
   ;