From d28653add1837481fc98ddfbc75b0f36fec8582d Mon Sep 17 00:00:00 2001 From: olin-shivers Date: Wed, 23 May 2001 22:32:51 +0000 Subject: [PATCH] Fixed a bug in the construction of the regexp for [...] backet globs. Reported by Harvey Stein. -Olin --- scsh/glob.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/scsh/glob.scm b/scsh/glob.scm index 900cb5b..c725d65 100644 --- a/scsh/glob.scm +++ b/scsh/glob.scm @@ -122,10 +122,9 @@ (cons re-any (str-cons chars res)) i)) - ((#\[) (receive (cset i) (parse-glob-bracket pat i) + ((#\[) (receive (re i) (parse-glob-bracket pat i) (lp '() - (cons (re-char-set cset) - (str-cons chars res)) + (cons re (str-cons chars res)) i))) (else (lp (cons c chars) res i))))))))))