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

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18240

Modified Files:
	BLOCK.F 
Log Message:
Jos: Added ListAll

Index: BLOCK.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/BLOCK.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** BLOCK.F	26 Feb 2012 16:43:59 -0000	1.8
--- BLOCK.F	3 May 2014 14:57:27 -0000	1.9
***************
*** 368,371 ****
--- 368,375 ----
          blockhandle file-size drop b/buf um/mod nip ;
  
+ : List-All          ( -- )                     \ W32F         Block extra
+ \ *G To list all blocks in the current blockfile.
+    #blocks 0 do   i list   loop  ;
+ 
  \ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  \ initialization of the block system