r231 - openbios-devel/forth/bootstrap

Author: blueswirl
Date: 2008-08-30 12:51:55 +0200 (Sat, 30 Aug 2008)
New Revision: 231

Modified:
   openbios-devel/forth/bootstrap/bootstrap.fs
Log:
Fix pad alignment

Modified: openbios-devel/forth/bootstrap/bootstrap.fs
===================================================================
--- openbios-devel/forth/bootstrap/bootstrap.fs	2008-08-24 12:54:03 UTC (rev 230)
+++ openbios-devel/forth/bootstrap/bootstrap.fs	2008-08-30 10:51:55 UTC (rev 231)
@@ -1083,7 +1083,7 @@

false value capital-hex?

-: pad       ( -- addr )      here 100 + ;
+: pad       ( -- addr )      here 100 + aligned ;

: todigit   ( num -- ascii ) 
   dup 9 > if