[Win32forth-cvs] win32forth/src/lib RESOURCES.F,1.5,1.6

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12877/src/lib

Modified Files:
	RESOURCES.F 
Log Message:
Rod: made external - SourceFile - needed for copying resources

Index: RESOURCES.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/RESOURCES.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** RESOURCES.F	7 Aug 2005 09:34:57 -0000	1.5
--- RESOURCES.F	10 Oct 2005 22:26:20 -0000	1.6
***************
*** 200,209 ****
  : CloseSourceFile ( -- )   hExe call FreeLibrary drop  0 to hExe ;
  
  : SourceFile ( s" Filename" -- ) 
          2dup SourceFileName place  asciiz call LoadLibrary to hExe
          hExe 0= IF  SourceFileName SourceFileError  abort  THEN ;
  
- external
- 
  : ListResources ( s" Filename" -- )
          SourceFile
--- 200,209 ----
  : CloseSourceFile ( -- )   hExe call FreeLibrary drop  0 to hExe ;
  
+ external
+ 
  : SourceFile ( s" Filename" -- ) 
          2dup SourceFileName place  asciiz call LoadLibrary to hExe
          hExe 0= IF  SourceFileName SourceFileError  abort  THEN ;
  
  : ListResources ( s" Filename" -- )
          SourceFile