Making the match-let family insert a lexical closure to allow internal defines.

This commit is contained in:
Alex Shinn 2012-12-26 22:02:27 +09:00
parent cb22ae6ff9
commit 41a672864b

View file

@ -854,7 +854,7 @@
(define-syntax match-let*
(syntax-rules ()
((_ () . body)
(begin . body))
(let () . body))
((_ ((pat expr) . rest) . body)
(match expr (pat (match-let* rest . body))))))