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

glob->regexp wasn't "terminating" regexps with an EOS anchor. Reported 

by Friedrich Dominicus <Friedrich.Dominicus@inka.de>
    -Olin
This commit is contained in:
shivers 2000-02-09 15:21:07 +00:00
parent 85630af86a
commit 294994dcf2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/glob.scm
View File

@ -105,7 +105,7 @@
(res (list re-bos)) (res (list re-bos))
(i 0)) (i 0))
(if (= i pat-len) (if (= i pat-len)
(re-seq (reverse (str-cons chars res))) (re-seq (reverse (cons re-eos (str-cons chars res))))
(let ((c (string-ref pat i)) (let ((c (string-ref pat i))
(i (+ i 1))) (i (+ i 1)))