Changeset 27343 in project

Timestamp:

08/31/12 09:27:08 (9 years ago)

Author:

Ivan Raikov

Message:

kd-tree: a proper fix for bug in near-neighbors*

File:

• release/4/kd-tree/trunk/kd-tree.scm (modified) (1 diff)

release/4/kd-tree/trunk/kd-tree.scm

@@ -561 +561 @@
                                (let ((maybe-pivot
                                       (if (<= (fdist probe p) (* radius radius))
-                                          (if v (list (list i p)) (list (list (list i v) p)))
+                                          (if v (list (list (list i v) p))
+                                              (list (list i p)) )
                                           '())))