#:filter -> #:file-filter

svn: r3272
This commit is contained in:
Eli Barzilay 2006-06-08 03:18:13 +00:00
parent 1daf6d363c
commit 2a92d1454d

View File

@ -32,7 +32,7 @@
[at-plt-home? #f]) [at-plt-home? #f])
(pack-plt dest name paths (pack-plt dest name paths
#:collections collections #:collections collections
#:filter filter #:file-filter filter
#:encode? encode? #:encode? encode?
#:file-mode file-mode #:file-mode file-mode
#:unpack-unit unpack-unit #:unpack-unit unpack-unit
@ -191,7 +191,7 @@
(pack-collections-plt output name collections (pack-collections-plt output name collections
#:replace? replace? #:replace? replace?
#:extra-setup-collections extra-setup-collections #:extra-setup-collections extra-setup-collections
#:filter file-filter #:file-filter file-filter
#:at-plt-home? at-plt-home?)) #:at-plt-home? at-plt-home?))
(define/kw (pack-collections-plt output name collections (define/kw (pack-collections-plt output name collections
@ -263,7 +263,7 @@
source-files source-files
#:collections (append extra-setup-collections #:collections (append extra-setup-collections
(filter get-info collections)) (filter get-info collections))
#:filter file-filter #:file-filter file-filter
#:file-mode (if replace? 'file-replace 'file) #:file-mode (if replace? 'file-replace 'file)
#:plt-relative? #t #:plt-relative? #t
#:requires #:requires