From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Thu, 9 Nov 2006 11:10:33 +0000 (+0100)
Subject: FIX: gentree typo/unsaved file
X-Git-Url: http://repo.macrolet.net/gitweb/?p=fiveam.git;a=commitdiff_plain;h=e2b4fc178f0288e0e47b1b98bc442ad7c1eb554a

FIX: gentree typo/unsaved file
---

diff --git a/src/random.lisp b/src/random.lisp
index 1052f35..53f423b 100644
--- a/src/random.lisp
+++ b/src/random.lisp
@@ -242,7 +242,7 @@ the approximate size of the tree, but don't try anything above
  30, you have been warned. ELEMENTS must be a generator which
 will produce the elements."
   (labels ((rec (&optional (current-depth 0))
-             (let ((key (random (+ 3 (- depth current-depth)))))
+             (let ((key (random (+ 3 (- size current-depth)))))
                (cond ((> key 2)
                       (list (rec (+ current-depth 1))
                             (rec (+ current-depth 1))))