[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.33,1.34

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28072/apps/Player4

Modified Files:
	Catalog.f 
Log Message:
Jos: Sorry.

Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Catalog.f	25 May 2006 17:59:20 -0000	1.33
--- Catalog.f	25 May 2006 18:09:27 -0000	1.34
***************
*** 599,603 ****
  
  : next-not-played ( - n ) \ -1 means all done.
!         -2  database-mhndl #records-in-database last-selected-rec 0 max  \ Starting from the last-selected record
          do   i n>record >r Requests?    \ Handle requests first when they are there and not ignored
               if    r@ Requested? dup
--- 599,603 ----
  
  : next-not-played ( - n ) \ -1 means all done.
!         -1 database-mhndl #records-in-database last-selected-rec 0 max  \ Starting from the last-selected record
          do   i n>record >r Requests?    \ Handle requests first when they are there and not ignored
               if    r@ Requested? dup