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
|
