From a5e76d448467537de5a81f9f615791c49cc77c2b Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 23 Jan 2003 17:18:08 +0000 Subject: [PATCH] Bug fix for let-match: variables may be #f. --- scsh/rx/re-match-syntax.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scsh/rx/re-match-syntax.scm b/scsh/rx/re-match-syntax.scm index 666f0b0..962fc09 100644 --- a/scsh/rx/re-match-syntax.scm +++ b/scsh/rx/re-match-syntax.scm @@ -18,6 +18,8 @@ (define-syntax let-match-aux (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 ((?mvar0 (match:substring ?match-var ?i0))) (let-match-aux ?match-var (+ 1 ?i0) (?mvars ...) ?body0 ?body ...)))