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


Ignore:
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:
1 edited

Legend:

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

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