scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix incomplete port to new regexp system.

This commit is contained in:
sperber 2002-02-21 13:21:32 +00:00
parent 4efe1a4cd8
commit b289d0dde7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/filemtch.scm
View File

@ -63,7 +63,7 @@
(patterns (cdr patterns)) (patterns (cdr patterns))
(dir (file-name-as-directory root)) (dir (file-name-as-directory root))
(matcher (cond ((regexp? pattern) (matcher (cond ((regexp? pattern)
(lambda (f) (regexp-search? re f))) (lambda (f) (regexp-search? pattern f)))
;; This arm makes a file-matcher using ;; This arm makes a file-matcher using
;; predicate PATTERN. If PATTERN signals ;; predicate PATTERN. If PATTERN signals