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.
This commit is contained in:
Lassi Kortela 2019-11-18 00:53:38 +02:00
parent 1886e4e52f
commit b1d5956567
1 changed files with 1 additions and 1 deletions

View File

@ -53,7 +53,7 @@
(define-syntax unpack-using/set (define-syntax unpack-using/set
(syntax-rules () (syntax-rules ()
((_ (sets ...)) ((_ (sets ...))
(begin sets ...)) (begin sets ... #f))
((_ (sets ...) rule rules ...) ((_ (sets ...) rule rules ...)
(unpack-using/set (sets ... (unpack-using/rule rule)) rules ...)))) (unpack-using/set (sets ... (unpack-using/rule rule)) rules ...))))