Changeset 27009 in project


Ignore:
Timestamp:
07/06/12 12:19:39 (9 years ago)
Author:
Ivan Raikov
Message:

spatial-trees release 2.7

Location:
release/4/spatial-trees/tags/2.7
Files:
1 edited
5 copied

Legend:

Unmodified
Added
Removed
  • release/4/spatial-trees/tags/2.7/kd-tree.scm

    r26975 r27009  
    724724                                                  (lambda (i p v) (and (equal? p p-kill) (list i p v)))
    725725                                                  (reverse (cis:elements ii)) pp vv)))
    726 
     726                                         (fprintf (current-error-port) "kd-tree-remove: ipvs = ~A~%" ipvs)
     727                                         (fprintf (current-error-port) "kd-tree-remove: pp = ~A~%" pp)
     728                                         (fprintf (current-error-port) "kd-tree-remove: vv = ~A~%" vv)
    727729                                       (and (pair? ipvs)
    728730                                            (let ((ii1 (fold (lambda (i ax) (cis:remove i ax))
     
    751753                         (KdNode (l p i r axis sz)
    752754
     755                                 (fprintf (current-error-port) "kd-tree-remove: p = ~A~%" p)
     756                                 (fprintf (current-error-port) "kd-tree-remove: p-kill = ~A~%" p-kill)
     757                                 
    753758                                 (if (equal? p p-kill)
    754759
     
    759764                                           (list->kd-tree* 0 (length pts1) pts1 axis)))
    760765
    761                                      (if (<= (coord axis p-kill)
    762                                              (coord axis p))
     766                                     (if (< (coord axis p-kill)
     767                                            (coord axis p))
    763768
    764769                                         (let* ((l1 (tree-remove l p-kill))
Note: See TracChangeset for help on using the changeset viewer.