another file-filter typo

svn: r3289
This commit is contained in:
Eli Barzilay 2006-06-08 21:33:27 +00:00
parent 4b3d2531ac
commit 1105d9b404

View File

@ -128,7 +128,7 @@
fileout)
(newline fileout)
(for-each (lambda (path)
(mztar (simplify-path path #f) fileout filter file-mode))
(mztar (simplify-path path #f) fileout file-filter file-mode))
paths)
(close-output-port fileout)
(thread-wait thd)))
@ -136,7 +136,7 @@
(define (element->string x)
(if (path? x) (path->string x) x))
(define (mztar path output filter file-mode)
(define (mztar path output file-filter file-mode)
(define (path->list p)
(if (eq? p 'same)
null
@ -160,7 +160,7 @@
(for-each
(lambda (f)
(let* ([p (build-path dir f)]
[filter-val (filter p)])
[filter-val (file-filter p)])
(when filter-val
(if (directory-exists? p)
(loop p (append dpath (list f)) #f)