[Win32forth-cvs] win32forth/apps/WinEd WinEd.f,1.11,1.12

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

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25058/win32forth/apps/WinEd

Modified Files:
	WinEd.f 
Log Message:
gah:Fixed bug causing WinEd to incorrectly throw an error

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** WinEd.f	27 Jul 2006 07:29:31 -0000	1.11
--- WinEd.f	28 Jul 2006 07:43:03 -0000	1.12
***************
*** 136,147 ****
                  .free                   \ how much memory did we really use?
                  -1 ed-forth-count +!    \ remove myself from Forth count
!                 0 0 ' wined ' APPLICATION catch WinEd.exe   \ save WinEd.exe
!                 s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
  
                  1 ed-forth-count +!
!                 forth-msg-chain !
                  \ make sure that the remote I/O will still work after WinEd is compiled
                  also hidden ' uninit-shared-forth is uninit-shared-type previous
                  throw
                  1 pause-seconds bye
          [else]
--- 136,147 ----
                  .free                   \ how much memory did we really use?
                  -1 ed-forth-count +!    \ remove myself from Forth count
!                 0 0 ' wined ' APPLICATION catch WinEd.exe checkstack  \ save WinEd.exe
  
                  1 ed-forth-count +!
!                 swap forth-msg-chain !
                  \ make sure that the remote I/O will still work after WinEd is compiled
                  also hidden ' uninit-shared-forth is uninit-shared-type previous
                  throw
+                 s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
                  1 pause-seconds bye
          [else]