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