scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fix for let-match: variables may be #f.

This commit is contained in:
mainzelm 2003-01-23 17:18:08 +00:00
parent a6c56aa458
commit a5e76d4484
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/rx/re-match-syntax.scm
View File

@ -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 ...)))