Fix when calling without key.

jorgetavares · Mar 15, 2012 · 7d8f17d · 7d8f17d
1 parent 4a9d2f4
commit 7d8f17d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/insertion-sort.lisp b/insertion-sort.lisp
@@ -59,5 +59,5 @@
   (let ((end (length sequence)))
     (if key
 	(sort-dispatch insertion-sort-body predicate sequence key 0 end)
-	(sort-dispatch insertion-sort-body predicate sequence key 0 end))
+	(sort-dispatch insertion-sort-body predicate sequence nil 0 end))
     sequence))