[Win32forth-cvs] win32forth/src Primutil.f, 1.28, 1.29 editor_io.f, 1.6, 1.7 w32fMsg.f, 1.5, 1.6

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

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

Modified Files:
	Primutil.f editor_io.f w32fMsg.f 
Log Message:
Rod: minor changes to prevent sort out some warning messages

Index: editor_io.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/editor_io.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** editor_io.f	18 Jun 2008 11:02:36 -0000	1.6
--- editor_io.f	11 Aug 2008 17:07:41 -0000	1.7
***************
*** 90,94 ****
--- 90,96 ----
  
  EXTERNAL
+ IN-APPLICATION
  defer paste-load ' noop is paste-load
+ IN-SYSTEM
  INTERNAL
  
***************
*** 192,197 ****
  IN-SYSTEM
  
! [defined] $watch
! [if]
  : _$watch       ( line filename -- )
                  ['] do-watch  [$edit] ;
--- 194,198 ----
  IN-SYSTEM
  
! [defined] $watch [if]
  : _$watch       ( line filename -- )
                  ['] do-watch  [$edit] ;

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Primutil.f	16 Jul 2008 20:48:23 -0000	1.28
--- Primutil.f	11 Aug 2008 17:07:41 -0000	1.29
***************
*** 449,456 ****
--- 449,458 ----
  \ synonym 2to   to  \ Sets a 2value      \ made a colon def - [cdo-2008May13]
  \ synonym 2+to +to                       \ made a colon def - [cdo-2008May13]
+ IN-SYSTEM
  : 2to           ( d <name> -- ) \ store a double in a 2VALUE
                  postpone to ; IMMEDIATE
  : 2+to          ( d <name> -- ) \ add a double to a 2VALUE
                 postpone +to ; IMMEDIATE
+ IN-APPLICATION
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Index: w32fMsg.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** w32fMsg.f	9 Jul 2008 10:52:27 -0000	1.5
--- w32fMsg.f	11 Aug 2008 17:07:41 -0000	1.6
***************
*** 561,565 ****
  
  create StartupInfo
!                 here 0 ,                \ cb
                  0 ,                     \ lpReserved
                  0 ,                     \ lpDesktop
--- 561,565 ----
  
  create StartupInfo
! NoStack         here 0 ,                \ cb
                  0 ,                     \ lpReserved
                  0 ,                     \ lpDesktop
***************
*** 572,577 ****
                  0 ,                     \ dwYCountChars
                  0 ,                     \ dwFillAttribute
!                 STARTF_USESHOWWINDOW
!                 ,                       \ dwFlags
                  SW_SHOWNORMAL W,        \ wShowWindow
                  0 W,                    \ cbReserved2
--- 572,576 ----
                  0 ,                     \ dwYCountChars
                  0 ,                     \ dwFillAttribute
!                 STARTF_USESHOWWINDOW ,  \ dwFlags
                  SW_SHOWNORMAL W,        \ wShowWindow
                  0 W,                    \ cbReserved2