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)))