Ignore:
Timestamp:
07/02/12 11:41:35 (9 years ago)
Author:
Ivan Raikov
Message:

spatial-trees: removed debug stmts from kd-tree

File:
1 edited

Legend:

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

    r26970 r26971  
    724724                                                  (lambda (i p v) (and (equal? p p-kill) (list i p v)))
    725725                                                  (reverse (cis:elements ii)) pp vv)))
    726                                        (fprintf (current-error-port) "kd-tree-remove: ipvs = ~A~%" ipvs)
    727                                        (fprintf (current-error-port) "kd-tree-remove: cardinal ii = ~A~%" (cis:cardinal ii))
    728726                                       (let ((ii1 (fold (lambda (i ax) (cis:remove i ax))
    729727                                                        ii (map car ipvs)))
     
    734732                                                        vv (map caddr ipvs)))
    735733                                             )
    736                                          (fprintf (current-error-port) "kd-tree-remove: cardinal ii1 = ~A~%" (cis:cardinal ii1))
    737734
    738735                                         (KdLeaf ii1 pp1 vv1 axis)
     
    751748                         (KdNode (l p i r axis sz)
    752749                                 
    753                                  (fprintf (current-error-port) "kd-tree-remove: p = ~A~%" p)
    754                                  (fprintf (current-error-port) "kd-tree-remove: p-kill = ~A~%" p-kill)
    755                                  (fprintf (current-error-port) "kd-tree-remove: equal? p p-kill = ~A~%" (equal? p p-kill))
    756 
    757750                                 (if (equal? p p-kill)
    758751
     
    766759                                             (coord axis p))
    767760                                         (let ((l1 (tree-remove l p-kill)))
    768                                            
    769                                            (fprintf (current-error-port) "kd-tree-remove: kd-tree-size l1 = ~A~%" (kd-tree-size l1))
    770                                            (fprintf (current-error-port) "kd-tree-remove: kd-tree-size r = ~A~%" (kd-tree-size r))
    771 
    772761                                           (KdNode l1 p i r axis (+ 1 (kd-tree-size l1) (kd-tree-size r))))
    773762                                         (let ((r1 (tree-remove r p-kill)))
    774                                            
    775                                            (fprintf (current-error-port) "kd-tree-remove: kd-tree-size l = ~A~%" (kd-tree-size l))
    776                                            (fprintf (current-error-port) "kd-tree-remove: kd-tree-size r1 = ~A~%" (kd-tree-size r1))
    777 
    778763                                           (KdNode l p i r1 axis (+ 1 (kd-tree-size l) (kd-tree-size r1)))))
    779764                                     ))
Note: See TracChangeset for help on using the changeset viewer.