suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

another keyword typo

Browse Source 
svn: r3287
This commit is contained in:
Eli Barzilay 2006-06-08 21:14:45 +00:00
parent 2279544839
commit 36d57c8a15
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
collects/setup/pack.ss
View File

@ -22,35 +22,35 @@
arg1-name v arg2-name)) arg1-name v arg2-name))
(define/kw (pack dest name paths collections (define/kw (pack dest name paths collections
#:optional [filter std-filter] #:optional [file-filter std-filter]
[encode? #t] [encode? #t]
[file-mode 'file] [file-mode 'file]
[unpack-unit #f] [unpack-unit #f]
[plt-relative? #t] [plt-relative? #t]
[requires null] [requires null]
[conflicts null] [conflicts null]
[at-plt-home? #f]) [at-plt-home? #f])
(pack-plt dest name paths (pack-plt dest name paths
#:collections collections #:collections collections
#:file-filter filter #:file-filter file-filter
#:encode? encode? #:encode? encode?
#:file-mode file-mode #:file-mode file-mode
#:unpack-unit unpack-unit #:unpack-unit unpack-unit
#:plt-relative? plt-relative? #:plt-relative? plt-relative?
#:requires null #:requires null
#:conflicts null #:conflicts null
#:at-plt-home? at-plt-home?)) #:at-plt-home? at-plt-home?))
(define/kw (pack-plt dest name paths (define/kw (pack-plt dest name paths
#:key [collections null] #:key [collections null]
[filter std-filter] [file-filter std-filter]
[encode? #t] [encode? #t]
[file-mode 'file] [file-mode 'file]
[unpack-unit #f] [unpack-unit #f]
[plt-relative? #t] [plt-relative? #t]
[requires null] [requires null]
[conflicts null] [conflicts null]
[at-plt-home? #f] [at-plt-home? #f]
[test-plt-dirs #f]) [test-plt-dirs #f])
(when (and at-plt-home? (not plt-relative?)) (when (and at-plt-home? (not plt-relative?))
(x-arg-needs-true-arg 'pack-plt 'at-plt-home? at-plt-home? 'plt-relative?)) (x-arg-needs-true-arg 'pack-plt 'at-plt-home? at-plt-home? 'plt-relative?))