Add key to make-tree

Ramarren · Jul 13, 2009 · 74c9457 · 74c9457
1 parent cb9aae5
commit 74c9457
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/bentley-ottmann.lisp b/bentley-ottmann.lisp
@@ -89,7 +89,8 @@
   (setf (edge-tree instance)
 	(trees:make-binary-tree :red-black
 				#'(lambda (lv rv)
-					     (order-line-segments-at-point lv rv instance)))))
+                                    (order-line-segments-at-point lv rv instance))
+                                :key #'identity)))
 
 (defun insert-edge (edge sweep-line)
   "Insert new edge into sweep-line, returns a cons of neighbouring edges."