lassik
/
snow
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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 ca936c029c
commit 32134a3614
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lassik/unpack-assoc.scm
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 ...))))