added default value for argument bucket-size of list->kd-tree*; versi…

…on set to 5.1
iraikov · Jan 27, 2016 · d0e14a3 · d0e14a3
1 parent 1262693
commit d0e14a3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/kd-tree.scm b/kd-tree.scm
@@ -473,7 +473,7 @@ EOF
 		  ))
 
 		(list->kd-tree/depth
-		 (lambda (points depth bucket-size)
+		 (lambda (points depth #!key (bucket-size (* 10 (max (log2 (length points)) 1))))
 
 		   (cond
 

diff --git a/kd-tree.setup b/kd-tree.setup
@@ -15,5 +15,5 @@
   `(,(dynld-name "kd-tree") ,(dynld-name "kd-tree.import") )
 
   ;; Assoc list with properties for your extension:
-  '((version 5.0)
+  '((version 5.1)
     ))