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
|
