r456 - forth/kernel

Author: wmb
Date: 2007-07-05 19:09:48 +0200 (Thu, 05 Jul 2007)
New Revision: 456

Modified:
   forth/kernel/kernel.fth
Log:
Kernel.fth - reinstated header on #-buf for PowerPC.

Modified: forth/kernel/kernel.fth
===================================================================
--- forth/kernel/kernel.fth	2007-07-05 17:09:11 UTC (rev 455)
+++ forth/kernel/kernel.fth	2007-07-05 17:09:48 UTC (rev 456)
@@ -88,8 +88,8 @@

0 value tib

+0 value #-buf
 headerless
-0 value #-buf
 : init  ( -- )  init
    [ /n h# 10 * 8 + ] literal dup alloc-mem + is #-buf
    /tib    alloc-mem   is tib