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.

1 files changed, 2 insertions, 2 deletions

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)