From 0198ddb3372cfa25b5e38300a21f56718596abc2 Mon Sep 17 00:00:00 2001 From: olin-shivers Date: Wed, 28 Mar 2001 13:53:42 +0000 Subject: [PATCH] [A change ported over from the 0.5 tree.] glob->regexp wasn't "terminating" regexps with an EOS anchor. Reported by Friedrich Dominicus -Olin --- scsh/glob.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scsh/glob.scm b/scsh/glob.scm index 5cba035..900cb5b 100644 --- a/scsh/glob.scm +++ b/scsh/glob.scm @@ -2,6 +2,7 @@ ;;; Copyright (c) 1994 by David Albertz (dalbertz@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, ;;; so long as you don't charge money for it, remove this notice, or @@ -104,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)))