[Win32forth-cvs] win32forth/src PRIMHASH.F, 1.9, 1.10 Primutil.f, 1.51, 1.52 sysload.f, 1.2, 1.3

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

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv9610

Modified Files:
	PRIMHASH.F Primutil.f sysload.f 
Log Message:
Modified to use execute-parsing

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** Primutil.f	24 Jun 2011 17:02:02 -0000	1.51
--- Primutil.f	19 Aug 2011 13:10:45 -0000	1.52
***************
*** 129,133 ****
  \ September 16th, 2003 - 10:27 dbu
  : cfa-func      ( -<name>- )
!                 header docon compile, ( code-here , ) hide !csp dodoes-call, ] ;
  
  defer enter-assembler ' noop is enter-assembler
--- 129,134 ----
  \ September 16th, 2003 - 10:27 dbu
  : cfa-func      ( -<name>- )
!                 0 constant -cell allot \ header docon compile, ( code-here , )
!                 hide !csp dodoes-call, ] ;
  
  defer enter-assembler ' noop is enter-assembler
***************
*** 135,139 ****
  
  : cfa-code      ( -<name>- )
!                 header docon compile, code-here ,
                  enter-assembler ;
  
--- 136,140 ----
  
  : cfa-code      ( -<name>- )
!                 code-here constant \ header docon compile, ,
                  enter-assembler ;
  

Index: PRIMHASH.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** PRIMHASH.F	15 May 2008 04:28:26 -0000	1.9
--- PRIMHASH.F	19 Aug 2011 13:10:45 -0000	1.10
***************
*** 120,127 ****
                  next    c;
  
! \ ' UNNESTM ALIAS EXITM            \ made a colon def - [cdo-2008May13]
  : EXITM         ( -- ) \ exit a method definition
!                 unnestm ;
  
  
  \ -------------------- Runtime for Objects --------------------
--- 120,129 ----
                  next    c;
  
! in-system
! 
  : EXITM         ( -- ) \ exit a method definition
!                 ?comp postpone unnestm ; immediate
  
+ in-application
  
  \ -------------------- Runtime for Objects --------------------
***************
*** 300,307 ****
                  r> 4drop  ( already found )
          else
!                 hash-wid swap-current >r
!                 "header docon ,
                  r> set-current
!                 r> dup , clash
          then ;
  
--- 302,309 ----
                  r> 4drop  ( already found )
          else
!                 r@ -rot hash-wid swap-current >r
!                 ['] Constant execute-parsing
                  r> set-current
!                 r> clash
          then ;
  

Index: sysload.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/sysload.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sysload.f	15 May 2008 04:28:27 -0000	1.2
--- sysload.f	19 Aug 2011 13:10:45 -0000	1.3
***************
*** 114,118 ****
              LibPath$ ?DEFEXT
              \ check if already loaded
!             LibPath$ count "TO-PATHEND"
              [ sys-warning-off also hidden ] "Loaded?
              [ previous sys-warning-on ]
--- 114,118 ----
              LibPath$ ?DEFEXT
              \ check if already loaded
!             LibPath$ count \ "TO-PATHEND"
              [ sys-warning-off also hidden ] "Loaded?
              [ previous sys-warning-on ]