From 66eb53e611256a163a0ff4623b889a8382948305 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Mon, 18 Aug 2025 14:29:48 +0200
Subject: Allow with-reified-slset to return values as well

Otherwise, it'll be a bit awkward if we do have something more useful
to return.  And we wouldn't be able to get at the slset's list so
easily.
---
 slsets.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'slsets.scm')

diff --git a/slsets.scm b/slsets.scm
index d5f4020..ce8f67c 100644
--- a/slsets.scm
+++ b/slsets.scm
@@ -191,8 +191,8 @@
     (dynamic-wind
         (lambda () (mark-list! (reified-slset-list rs) marking))
         (lambda ()
-          (fun rs)
-          (reified-slset-list rs))
+          (receive res (fun rs)
+            (apply values (reified-slset-list rs) res)))
         (lambda () (unmark-list! (reified-slset-list rs) marking)))))
 
 (define (reified-slset-adjoin! rs . els)
-- 
cgit v1.2.3