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

by Friedrich Dominicus <Friedrich.Dominicus@inka.de> -Olin
2000-02-09 15:21:07 +00:00 · 2000-02-09 15:21:07 +00:00 · 294994dcf2
parent 85630af86a
commit 294994dcf2
1 changed files with 1 additions and 1 deletions
--- a/scsh/glob.scm
+++ b/scsh/glob.scm
@ -105,7 +105,7 @@
 		 (res (list re-bos))
 		 (i 0))
 	  (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))
 		    (i (+ i 1)))