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

Reply via email to