Changeset 27332 in project for release/4/kd-tree/trunk/kd-tree.scm


Ignore:
Timestamp:
08/30/12 04:18:51 (9 years ago)
Author:
Ivan Raikov
Message:

kd-tree: bug fix in kd-tree-near-neighbors*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/kd-tree/trunk/kd-tree.scm

    r27061 r27332  
    561561                               (let ((maybe-pivot
    562562                                      (if (<= (fdist probe p) (* radius radius))
    563                                           (list (list i p)) '())))
     563                                          (if v (list (list i p)) (list (list (list i v) p)))
     564                                          '())))
    564565
    565566                                 (if (and (tree-empty? l)
Note: See TracChangeset for help on using the changeset viewer.