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))
(define/kw (pack dest name paths collections
#:optional [filter std-filter]
[encode? #t]
[file-mode 'file]
[unpack-unit #f]
#:optional [file-filter std-filter]
[encode? #t]
[file-mode 'file]
[unpack-unit #f]
[plt-relative? #t]
[requires null]
[conflicts null]
[at-plt-home? #f])
[requires null]
[conflicts null]
[at-plt-home? #f])
(pack-plt dest name paths
#:collections collections
#:file-filter filter
#:encode? encode?
#:file-mode file-mode
#:unpack-unit unpack-unit
#:collections collections
#:file-filter file-filter
#:encode? encode?
#:file-mode file-mode
#:unpack-unit unpack-unit
#:plt-relative? plt-relative?
#:requires null
#:conflicts null
#:at-plt-home? at-plt-home?))
#:requires null
#:conflicts null
#:at-plt-home? at-plt-home?))
(define/kw (pack-plt dest name paths
#:key [collections null]
[filter std-filter]
[encode? #t]
[file-mode 'file]
[unpack-unit #f]
#:key [collections null]
[file-filter std-filter]
[encode? #t]
[file-mode 'file]
[unpack-unit #f]
[plt-relative? #t]
[requires null]
[conflicts null]
[at-plt-home? #f]
[requires null]
[conflicts null]
[at-plt-home? #f]
[test-plt-dirs #f])
(when (and at-plt-home? (not plt-relative?))
(x-arg-needs-true-arg 'pack-plt 'at-plt-home? at-plt-home? 'plt-relative?))