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 ;