[rucksack-devel] Bug in leaf-delete-key

[Henrik Hjelte]

While trying out this beautiful source-code, I found a little bug in
leaf-delete-key, see below. While writing this I saw a recent thread 
about deleting and index problems, and I think this fixes these problems.

Best wishes,
Henrik Hjelte

  * bugfix in p-btrees leaf-delete-key
diff -rN -u old-rucksack/p-btrees.lisp new-rucksack/p-btrees.lisp
--- old-rucksack/p-btrees.lisp  2007-02-02 18:13:01.700672580 +0100
+++ new-rucksack/p-btrees.lisp  2007-02-02 18:13:01.872675407 +0100
@@ -828,7 +828,7 @@
       (ecase if-does-not-exist
         (:ignore (return-from leaf-delete-key))
         (:error (error 'btree-search-error :btree btree :key key))))
-    (remove-key leaf key)
+    (remove-key leaf (binding-key binding))
     (unless (node-full-enough-p btree leaf)
       (enlarge-node btree leaf parent-stack))))