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 ,
|
