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

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

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

Modified Files:
	fkernel.f 
Log Message:
move 'defer start/stop' up so it can be called in 'slow' to help in seeing warnings during build

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** fkernel.f	8 Apr 2006 19:46:58 -0000	1.27
--- fkernel.f	1 May 2006 03:11:48 -0000	1.28
***************
*** 4252,4255 ****
--- 4252,4257 ----
              ;
  
+ DEFER START/STOP        ' noop is start/stop   \ has to be in systemspace
+ 
  in-application
  
***************
*** 4273,4278 ****
                  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
--- 4275,4281 ----
                  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 start/stop ; \ set 'slfactor' to slow down loading
  : HEADER        ( -<name>- )      \ build a header
                  BL WORD COUNT (HEADER) slow ; \ self-call the header word
***************
*** 5618,5622 ****
                  THEN ;
  
! DEFER START/STOP ' _START/STOP IS START/STOP
  
  VARIABLE ECHO  \ ECHO ON echos everything to the console that's included
--- 5621,5625 ----
                  THEN ;
  
! ' _START/STOP IS START/STOP
  
  VARIABLE ECHO  \ ECHO ON echos everything to the console that's included