From 209c63212d98663619c566a20bfb2c6e1eacd444 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 13 Feb 2022 00:31:52 +0100
Subject: Begin1 handle multiple values.

---
 module/hnh/util.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'module/hnh/util.scm')

diff --git a/module/hnh/util.scm b/module/hnh/util.scm
index 7fa3419d..8cbc8c8d 100644
--- a/module/hnh/util.scm
+++ b/module/hnh/util.scm
@@ -137,10 +137,10 @@
 
 
 (define-syntax-rule (begin1 first rest ...)
-  (let ((return first))
-    rest ...
-    return))
-
+  (call-with-values (lambda () first)
+    (lambda returned
+      rest ...
+      (apply values returned))))
 
 
 
-- 
cgit v1.2.3