From b1d595656753183e99b660bc939dc41d393264dc Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Mon, 18 Nov 2019 00:53:38 +0200
Subject: [PATCH] Avoid error with empty (begin) in some Schemes

This would happen when an unpack-case clause has no keys to unpack,
only the list head.
---
 unpack-assoc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/unpack-assoc.scm b/unpack-assoc.scm
index 3ba7cc3..16256c6 100644
--- a/unpack-assoc.scm
+++ b/unpack-assoc.scm
@@ -53,7 +53,7 @@
 (define-syntax unpack-using/set
   (syntax-rules ()
     ((_ (sets ...))
-     (begin sets ...))
+     (begin sets ... #f))
     ((_ (sets ...) rule rules ...)
      (unpack-using/set (sets ... (unpack-using/rule rule)) rules ...))))