[Win32forth-cvs] win32forth/src/console WinBase.f,1.3,1.4

[Dirk B. <db...@us...>]

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

Modified Files:
	WinBase.f 
Log Message:
- Renamed ?LOADING into LOADING?
- Replaced DEFER@ with ACTION-OF
- and some other minor changes

Index: WinBase.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/WinBase.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** WinBase.f	1 May 2005 06:27:41 -0000	1.3
--- WinBase.f	3 Oct 2006 07:44:22 -0000	1.4
***************
*** 98,102 ****
  
     : DefinedAbort,   \ compiles an ABORT" with the file name and line where defined
!         ?LOADING
          IF  S" Defined in file: "    TEMP$ PLACE
                LOADFILE COUNT         TEMP$ +PLACE
--- 98,102 ----
  
     : DefinedAbort,   \ compiles an ABORT" with the file name and line where defined
!         LOADING?
          IF  S" Defined in file: "    TEMP$ PLACE
                LOADFILE COUNT         TEMP$ +PLACE
***************
*** 164,168 ****
  \ returns handle to resource
  : GetResource ( a f -- handle)
!    2>R  LR_LOADFROMFILE 0 0 R> R> 
     NULL  Call LoadImage  DUP ?WinError ;
  
--- 164,168 ----
  \ returns handle to resource
  : GetResource ( a f -- handle)
!    2>R  LR_LOADFROMFILE 0 0 R> R>
     NULL  Call LoadImage  DUP ?WinError ;
  
***************
*** 243,245 ****
  return to the word that called it.
  ------------------------------------------------------  Comment;
-