www

commit 01e9dfea0ce7f89f57072dbb5d24aa4d5e5e2819
parent 64a990422c9f331de398add643c392af55bcf7fa
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  1 Jul 2013 12:46:48 -0600

distro-build/farm: fix `#:pkgs' handling

original commit: 91ec2df239873b9a4c12a8250798f0fe07f8ab78

Diffstat:
M
pkgs/distro-build/drive-clients.rkt
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/pkgs/distro-build/drive-clients.rkt b/pkgs/distro-build/drive-clients.rkt
@@ -238,8 +238,10 @@
   (define user (get-opt c '#:user))
   (define server (or (get-opt c '#:server)
                      default-server))
-  (define pkgs (or (get-opt c '#:pkgs)
-                   default-pkgs))
+  (define pkgs (let ([l (get-opt c '#:pkgs)])
+                 (if l
+                     (apply ~a #:separator " " l)
+                     default-pkgs)))
   (define dist-name (or (get-opt c '#:dist-name)
                         default-dist-name))
   (define dist-base (or (get-opt c '#:dist-base)