[Win32forth-cvs] win32forth/src/lib FCOM.F,1.5,1.6

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

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

Modified Files:
	FCOM.F 
Log Message:
gah:Added ACTION-OF (per F200X) and made DEFER@ a (temporary) deprecated synonym. Replaced defer@ by action-of (accept in 486asm). Added DEFER!. Support for extension queries (partial) added to environment.f

Index: FCOM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FCOM.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FCOM.F	13 Sep 2006 09:34:57 -0000	1.5
--- FCOM.F	28 Sep 2006 10:16:48 -0000	1.6
***************
*** 855,859 ****
  
  : comfind ( str -- str 0 | cfa flag )
!   [ defer@ find literal ] execute  \ call previous find word
    ?dup 0= if count 0 ?typelib if ['] noop 1 else drop 1- 0 then
    then ;
--- 855,859 ----
  
  : comfind ( str -- str 0 | cfa flag )
!   [ action-of find literal ] execute  \ call previous find word
    ?dup 0= if count 0 ?typelib if ['] noop 1 else drop 1- 0 then
    then ;