From b289d0dde7db154ed9505516d9bd083bf5da11cd Mon Sep 17 00:00:00 2001 From: sperber Date: Thu, 21 Feb 2002 13:21:32 +0000 Subject: [PATCH] Fix incomplete port to new regexp system. --- scsh/filemtch.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/filemtch.scm b/scsh/filemtch.scm index f89c94f..367c2eb 100644 --- a/scsh/filemtch.scm +++ b/scsh/filemtch.scm @@ -63,7 +63,7 @@ (patterns (cdr patterns)) (dir (file-name-as-directory root)) (matcher (cond ((regexp? pattern) - (lambda (f) (regexp-search? re f))) + (lambda (f) (regexp-search? pattern f))) ;; This arm makes a file-matcher using ;; predicate PATTERN. If PATTERN signals