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.
2021-08-17 13:26:44 +03:00
parent ca936c029c
commit 32134a3614
1 changed files with 1 additions and 1 deletions
@@ -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 ...))))