[Win32forth-cvs] win32forth/src ENVIRON.F, 1.6, 1.7 Primutil.f, 1.25, 1.26

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

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

Modified Files:
	ENVIRON.F Primutil.f 
Log Message:
Commented out old DEFER@ and uncommented 200X version (the old version has been deprecated for 20 mnths; long enough IMO). Uncommented environment query.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Primutil.f	16 Jun 2008 03:35:15 -0000	1.25
--- Primutil.f	25 Jun 2008 18:48:22 -0000	1.26
***************
*** 175,187 ****
  
  \ synonym defer@ action-of deprecated            \ made a colon def - [cdo-2008May13]
! : defer@        \ synonym of action-of
!                postpone action-of ; IMMEDIATE DEPRECATED
  
  in-application
  
  
! \ : defer@        ( xt1 -- xt2 )           \ 200X               Core ext x:deferred
  \ *G xt1 is deffered word. xt2 is current setting.
! \                >body @ ; \ currently unsupported until old use fades out.
  
  : DEFER!        ( xt2 xt1 -- )           \ 200X               Core ext x:deferred
--- 175,187 ----
  
  \ synonym defer@ action-of deprecated            \ made a colon def - [cdo-2008May13]
! \ : defer@        \ synonym of action-of
! \                postpone action-of ; IMMEDIATE DEPRECATED
  
  in-application
  
  
! : defer@        ( xt1 -- xt2 )           \ 200X               Core ext x:deferred
  \ *G xt1 is deffered word. xt2 is current setting.
!                >body @ ;
  
  : DEFER!        ( xt2 xt1 -- )           \ 200X               Core ext x:deferred

Index: ENVIRON.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/ENVIRON.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ENVIRON.F	19 Sep 2007 17:09:37 -0000	1.6
--- ENVIRON.F	25 Jun 2008 18:48:22 -0000	1.7
***************
*** 68,72 ****
                              : X:DEFINED         ;
                              : X:REQUIRED        ;
! \                            : X:DEFERRED        ; \ Not fully done yet
  \                            : X:PARSE-NAME      ; \ Not yet
  \                            : X:EKEYS           ; \ Not sure
--- 68,72 ----
                              : X:DEFINED         ;
                              : X:REQUIRED        ;
!                             : X:DEFERRED        ;
  \                            : X:PARSE-NAME      ; \ Not yet
  \                            : X:EKEYS           ; \ Not sure