[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.36,1.37

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

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

Modified Files:
	gkernel.f 
Log Message:
gah:Made INTERPRET a deferred word for the console status bar

Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** gkernel.f	24 Apr 2007 08:55:47 -0000	1.36
--- gkernel.f	8 May 2007 08:02:27 -0000	1.37
***************
*** 4601,4609 ****
                  ['] (interpret-i) is (interpret) ; immediate \ turn off compiling
  
! : interpret     ( -- )
                  begin bl word dup c@ while
                    (interpret)
                  repeat drop ;
  
  \ -------------------- Colon Compiler ---------------------------------------
  
--- 4601,4611 ----
                  ['] (interpret-i) is (interpret) ; immediate \ turn off compiling
  
! : _interpret     ( -- )
                  begin bl word dup c@ while
                    (interpret)
                  repeat drop ;
  
+ defer interpret ' _interpret is interpret
+ 
  \ -------------------- Colon Compiler ---------------------------------------
  
***************
*** 5420,5435 ****
              _localn (copy-code) code-here 1- code-c! ;
  
! : local0    -4  localn ; immediate
! : local1    -8  localn ; immediate
! : local2    -12 localn ; immediate
! : local3    -16 localn ; immediate
! : local4    -20 localn ; immediate
! : local5    -24 localn ; immediate
! : local6    -28 localn ; immediate
! : local7    -32 localn ; immediate
! : local8    -36 localn ; immediate
! : local9    -40 localn ; immediate
! : local10   -44 localn ; immediate
! : local11   -48 localn ; immediate
  
  create local-ptrs ' local0 , ' local1 , ' local2 ,
--- 5422,5437 ----
              _localn (copy-code) code-here 1- code-c! ;
  
! : local0    -4  localn ; immediate tloc tfa!
! : local1    -8  localn ; immediate tloc tfa!
! : local2    -12 localn ; immediate tloc tfa!
! : local3    -16 localn ; immediate tloc tfa!
! : local4    -20 localn ; immediate tloc tfa!
! : local5    -24 localn ; immediate tloc tfa!
! : local6    -28 localn ; immediate tloc tfa!
! : local7    -32 localn ; immediate tloc tfa!
! : local8    -36 localn ; immediate tloc tfa!
! : local9    -40 localn ; immediate tloc tfa!
! : local10   -44 localn ; immediate tloc tfa!
! : local11   -48 localn ; immediate tloc tfa!
  
  create local-ptrs ' local0 , ' local1 , ' local2 ,