[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.26,1.27

[bob a. <rd...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2638

Modified Files:
	fkernel.f 
Log Message:
added 'slow' which uses 'slfactor' to slow loading to be able to see warnings

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** fkernel.f	25 Feb 2006 08:33:53 -0000	1.26
--- fkernel.f	8 Apr 2006 19:46:58 -0000	1.27
***************
*** 4273,4279 ****
                  mov     eax, VHEAD VOC#0 - [ecx] \ fetch header word to execute
                  exec    c;
! 
  : HEADER        ( -<name>- )      \ build a header
!                 BL WORD COUNT (HEADER) ; \ self-call the header word
  
  in-system
--- 4273,4280 ----
                  mov     eax, VHEAD VOC#0 - [ecx] \ fetch header word to execute
                  exec    c;
! 0 value slfactor            \ adjust this to slow down loading
! : SLOW ( -- ) slfactor ms ; \ set 'slfactor' to slow down loading
  : HEADER        ( -<name>- )      \ build a header
!                 BL WORD COUNT (HEADER) slow ; \ self-call the header word
  
  in-system