[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.50,1.51

[Rod O. <rod...@us...>]

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

Modified Files:
	fkernel.f 
Log Message:
Rod: commented out more unnecessary deferred I/O

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** fkernel.f	19 Aug 2008 03:55:24 -0000	1.50
--- fkernel.f	19 Aug 2008 12:45:46 -0000	1.51
***************
*** 2125,2129 ****
  |: K_NOOP2 0 DUP ;
  
! ( \) DEFER INIT-CONSOLE-REG ' NOOP    IS INIT-CONSOLE-REG
  DEFER INIT-CONSOLE     ' K_NOOP1 IS INIT-CONSOLE
  DEFER INIT-SCREEN      ' NOOP    IS INIT-SCREEN
--- 2125,2129 ----
  |: K_NOOP2 0 DUP ;
  
! \ DEFER INIT-CONSOLE-REG ' NOOP    IS INIT-CONSOLE-REG
  DEFER INIT-CONSOLE     ' K_NOOP1 IS INIT-CONSOLE
  DEFER INIT-SCREEN      ' NOOP    IS INIT-SCREEN
***************
*** 2145,2151 ****
  DEFER GETXY        ( -- x y ) ( stdout: get cursor position)      ' K_NOOP2 IS GETXY
  DEFER GETCOLROW                                                   ' K_NOOP2 IS GETCOLROW
! ( \) DEFER SIZESTATE                                                   ' K_NOOP1 IS SIZESTATE
! ( \) DEFER MARKCONSOLE                                                 ' 4DROP   IS MARKCONSOLE
! ( \) DEFER CURSORINVIEW                                                ' NOOP    IS CURSORINVIEW
  DEFER FGBG!        ( f b -- ) ( stdout: set back and fore colors) ' 2DROP   IS FGBG!
  DEFER FG@                                                         ' K_NOOP1 IS FG@
--- 2145,2151 ----
  DEFER GETXY        ( -- x y ) ( stdout: get cursor position)      ' K_NOOP2 IS GETXY
  DEFER GETCOLROW                                                   ' K_NOOP2 IS GETCOLROW
! \ DEFER SIZESTATE                                                   ' K_NOOP1 IS SIZESTATE
! \ DEFER MARKCONSOLE                                                 ' 4DROP   IS MARKCONSOLE
! \ DEFER CURSORINVIEW                                                ' NOOP    IS CURSORINVIEW
  DEFER FGBG!        ( f b -- ) ( stdout: set back and fore colors) ' 2DROP   IS FGBG!
  DEFER FG@                                                         ' K_NOOP1 IS FG@
***************
*** 2153,2163 ****
  DEFER CHARWH                                                      ' K_NOOP2 IS CHARWH
  DEFER SETCHARWH                                                   ' 2DROP   IS SETCHARWH
! DEFER SETCOLROW                                                   ' 2DROP   IS SETCOLROW
  DEFER SET-CURSOR                                                  ' DROP    IS SET-CURSOR
  DEFER GET-CURSOR                                                  ' K_NOOP1 IS GET-CURSOR
! ( \) DEFER SETROWOFF                                                   ' DROP    IS SETROWOFF
! ( \) DEFER GETROWOFF                                                   ' K_NOOP1 IS GETROWOFF
! DEFER GETMAXCOLROW                                                ' K_NOOP2 IS GETMAXCOLROW
! DEFER SETMAXCOLROW                                                ' 2DROP   IS SETMAXCOLROW
  DEFER &THE-SCREEN                                                 ' K_NOOP1 IS &THE-SCREEN
  
--- 2153,2163 ----
  DEFER CHARWH                                                      ' K_NOOP2 IS CHARWH
  DEFER SETCHARWH                                                   ' 2DROP   IS SETCHARWH
! \ DEFER SETCOLROW                                                   ' 2DROP   IS SETCOLROW
  DEFER SET-CURSOR                                                  ' DROP    IS SET-CURSOR
  DEFER GET-CURSOR                                                  ' K_NOOP1 IS GET-CURSOR
! \ DEFER SETROWOFF                                                   ' DROP    IS SETROWOFF
! \ DEFER GETROWOFF                                                   ' K_NOOP1 IS GETROWOFF
! \ DEFER GETMAXCOLROW                                                ' K_NOOP2 IS GETMAXCOLROW
! \ DEFER SETMAXCOLROW                                                ' 2DROP   IS SETMAXCOLROW
  DEFER &THE-SCREEN                                                 ' K_NOOP1 IS &THE-SCREEN