On Thu, Jul 17, 2014 at 09:13:38AM +0200, Alexander Burger wrote: > And then later try (as in your case) > > (while (id (db: +Wrds) (rand 1 *Max))) > > because there may be holes in the file due to deleted objects.
Sorry, there are two errors: You must also call 'ext?' to check if you
found a valid object, and use 'until' instead of 'while':
(until (ext? (id `(db: +Wrds) (rand 1 *Max))))
... object in '@' ...
♪♫ Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
