From 36d57c8a15e79cfc7e4b8596451d60604b2aee6d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 8 Jun 2006 21:14:45 +0000 Subject: [PATCH] another keyword typo svn: r3287 --- collects/setup/pack.ss | 46 +++++++++++++++++++++--------------------- 1 file changed, 23 insertions(+), 23 deletions(-) diff --git a/collects/setup/pack.ss b/collects/setup/pack.ss index 81c578ffaf..20333b9257 100644 --- a/collects/setup/pack.ss +++ b/collects/setup/pack.ss @@ -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?))