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

Fixed a bug in the construction of the regexp for [...] backet globs. 

Reported by Harvey Stein.
    -Olin
This commit is contained in:
olin-shivers 2001-05-23 22:32:51 +00:00
parent dd46b8fa14
commit d28653add1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/glob.scm
View File

@ -122,10 +122,9 @@
(cons re-any (str-cons chars res)) (cons re-any (str-cons chars res))
i)) i))
((#\[) (receive (cset i) (parse-glob-bracket pat i) ((#\[) (receive (re i) (parse-glob-bracket pat i)
(lp '() (lp '()
(cons (re-char-set cset) (cons re (str-cons chars res))
(str-cons chars res))
i))) i)))
(else (lp (cons c chars) res i)))))))))) (else (lp (cons c chars) res i))))))))))