[Win32forth-cvs] win32forth/src/console Console2.f, 1.5, 1.6 LINEEDIT.F, 1.7, 1.8

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

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

Modified Files:
	Console2.f LINEEDIT.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: Console2.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/Console2.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Console2.f	13 May 2006 20:32:07 -0000	1.5
--- Console2.f	28 Sep 2006 10:16:48 -0000	1.6
***************
*** 197,201 ****
  \ ------------------------------------------------------------------------------
  
! defer@ accept value defaultAccept
  
  : _basic-forth-io  ( -- )               \ reset to Forth IO words
--- 197,201 ----
  \ ------------------------------------------------------------------------------
  
! action-of accept value defaultAccept
  
  : _basic-forth-io  ( -- )               \ reset to Forth IO words

Index: LINEEDIT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/LINEEDIT.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** LINEEDIT.F	24 Sep 2006 08:18:24 -0000	1.7
--- LINEEDIT.F	28 Sep 2006 10:16:48 -0000	1.8
***************
*** 372,377 ****
                                          \ f1 = false for canceled with ESC
  : lineeditor    ( x y a1 n1 --- f1 )    \ Edit line in a1
!                 defer@ _le-quit >r ['] _lequit is _le-quit
!                 defer@ _le-LF   >r ['] noop    is _le-LF
                  0 to editpos
                  <ledit>
--- 372,377 ----
                                          \ f1 = false for canceled with ESC
  : lineeditor    ( x y a1 n1 --- f1 )    \ Edit line in a1
!                 action-of _le-quit >r ['] _lequit is _le-quit
!                 action-of _le-LF   >r ['] noop    is _le-LF
                  0 to editpos
                  <ledit>
***************
*** 461,466 ****
  
  : _laccept      ( a1 n1 -- n2 ) \ line editor version of ACCEPT
!                 defer@ _le-up   >r
!                 defer@ _le-down >r
                  ['] __laccept catch             \ -- f1
                  r> is _le-down                  \ restore these functions
--- 461,466 ----
  
  : _laccept      ( a1 n1 -- n2 ) \ line editor version of ACCEPT
!                 action-of _le-up   >r
!                 action-of _le-down >r
                  ['] __laccept catch             \ -- f1
                  r> is _le-down                  \ restore these functions