From 294994dcf2d905ded4add3ba2cc529da9c3c1f96 Mon Sep 17 00:00:00 2001 From: shivers Date: Wed, 9 Feb 2000 15:21:07 +0000 Subject: [PATCH] glob->regexp wasn't "terminating" regexps with an EOS anchor. Reported by Friedrich Dominicus -Olin --- scsh/glob.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/glob.scm b/scsh/glob.scm index d0ed459..5f73ce1 100644 --- 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)))