[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8455/win32forth-stc/src/kernel

Modified Files:
	gkernel.f 
Log Message:
gah:Added &of and fixes for as and inline

Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** gkernel.f	21 Sep 2006 16:26:33 -0000	1.1
--- gkernel.f	22 Sep 2006 10:31:57 -0000	1.2
***************
*** 4,22 ****
  
                       WIN32FORTH EXPERIMENTAL KERNEL
!   
    SKERNEL.F
    Version 0.1 15/08/2005 23:09:35
!   
    --------------------------- Change Block -------------------------------
!   
    arm 15/08/2005 22:56:45
        First version 0.1 STC based kernel
[...1051 lines suppressed...]
  : kwords        ( -- "match-str" )
                  context @ (words)
!                 cr word-count . s" words in voc " type
                  ;
! 
  : +no-wrap      ( a1 n1 -- a2 ) \ add n1 to a1, limit to address 0xffffffff
                                  \ don't allow wrap around to address zero
***************
*** 5884,5888 ****
          repeat drop
          .olly-fileid close-file drop r> base ! ;
!         
  [then]
  
--- 5898,5902 ----
          repeat drop
          .olly-fileid close-file drop r> base ! ;
! 
  [then]