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

[A change ported over from the 0.5 tree.] 

glob->regexp wasn't "terminating" regexps with an EOS anchor. Reported
by Friedrich Dominicus <Friedrich.Dominicus@inka.de>
    -Olin
This commit is contained in:
olin-shivers 2001-03-28 13:53:42 +00:00
parent 5b8818ffef
commit 0198ddb337
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/glob.scm
View File

@ -2,6 +2,7 @@
;;; Copyright (c) 1994 by David Albertz (dalbertz@clark.lcs.mit.edu). ;;; Copyright (c) 1994 by David Albertz (dalbertz@clark.lcs.mit.edu).
;;; Copyright (c) 1994 by Olin Shivers (shivers@clark.lcs.mit.edu). ;;; Copyright (c) 1994 by Olin Shivers (shivers@clark.lcs.mit.edu).
;;; See file COPYING.
;;; This code is freely available for use by anyone for any purpose, ;;; This code is freely available for use by anyone for any purpose,
;;; so long as you don't charge money for it, remove this notice, or ;;; so long as you don't charge money for it, remove this notice, or
@ -104,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)))