Add an element disposal function.

[pspp] / lib / gl_rbtree_oset.c

diff --git a/lib/gl_rbtree_oset.c b/lib/gl_rbtree_oset.c
index 5e74fc727e858ba115996145a18e80e20e9027c8..936709d5825877996c01a4a6ab551cf30170e39f 100644 (file)
--- a/lib/gl_rbtree_oset.c
+++ b/lib/gl_rbtree_oset.c
@@ -1,5 +1,5 @@
 /* Ordered set data type implemented by a binary tree.
-   Copyright (C) 2006 Free Software Foundation, Inc.
+   Copyright (C) 2006-2007 Free Software Foundation, Inc.
    Written by Bruno Haible <bruno@clisp.org>, 2006.
 
    This program is free software; you can redistribute it and/or modify
@@ -749,6 +749,8 @@ gl_tree_remove_node (gl_oset_t set, gl_oset_node_t node)
     }
 
   set->count--;
+  if (set->base.dispose_fn != NULL)
+    set->base.dispose_fn (node->value);
   free (node);
   return true;
 }