Bug fix for let-match: variables may be #f.
This commit is contained in:
parent
a6c56aa458
commit
a5e76d4484
|
@ -18,6 +18,8 @@
|
||||||
|
|
||||||
(define-syntax let-match-aux
|
(define-syntax let-match-aux
|
||||||
(syntax-rules ()
|
(syntax-rules ()
|
||||||
|
((let-match-aux ?match-var ?i0 (#f ?mvars ...) ?body0 ?body ...)
|
||||||
|
(let-match-aux ?match-var (+ 1 ?i0) (?mvars ...) ?body0 ?body ...))
|
||||||
((let-match-aux ?match-var ?i0 (?mvar0 ?mvars ...) ?body0 ?body ...)
|
((let-match-aux ?match-var ?i0 (?mvar0 ?mvars ...) ?body0 ?body ...)
|
||||||
(let ((?mvar0 (match:substring ?match-var ?i0)))
|
(let ((?mvar0 (match:substring ?match-var ?i0)))
|
||||||
(let-match-aux ?match-var (+ 1 ?i0) (?mvars ...) ?body0 ?body ...)))
|
(let-match-aux ?match-var (+ 1 ?i0) (?mvars ...) ?body0 ?body ...)))
|
||||||
|
|
Loading…
Reference in New Issue