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;
- |
