[Win32forth-cvs] win32forth/src/lib BLOCK.F,1.7,1.8

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv13989/lib

Modified Files:
	BLOCK.F 
Log Message:
Added new file Pre-save. to remove things from or modify images prior to saving plus moved somes error messages to system space (work in progress) plus other minor modifications

Index: BLOCK.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/BLOCK.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** BLOCK.F	19 Aug 2011 21:22:32 -0000	1.7
--- BLOCK.F	26 Feb 2012 16:43:59 -0000	1.8
***************
*** 275,280 ****
          else    >in off
                  blockhandle to source-id \ ?loading on
!                 blk @ 1+ b/buf block (source) 2!
!                 true
          then    ;
  
--- 275,279 ----
          else    >in off
                  blockhandle to source-id \ ?loading on
!                 1 blk tuck +! @ block b/buf (source) 2! true
          then    ;