From 3699b61f08848f071de9b52386cd82bb9dd822d6 Mon Sep 17 00:00:00 2001
From: default <nobody@localhost>
Date: Mon, 28 Nov 2022 12:19:57 +0100
Subject: Backport from xs.

---
 xs_set.h | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'xs_set.h')

diff --git a/xs_set.h b/xs_set.h
index bd1b8ea..5e26abb 100644
--- a/xs_set.h
+++ b/xs_set.h
@@ -32,11 +32,21 @@ void xs_set_init(xs_set *s)
 }
 
 
-void xs_set_free(xs_set *s)
-/* frees a set */
+d_char *xs_set_result(xs_set *s)
+/* returns the set as a list and frees it */
 {
+    d_char *list = s->list;
+    s->list = NULL;
     s->hash = xs_free(s->hash);
-    s->list = xs_free(s->list);
+
+    return list;
+}
+
+
+void xs_set_free(xs_set *s)
+/* frees a set, dropping the list */
+{
+    free(xs_set_result(s));
 }
 
 
-- 
cgit v1.2.3