From 0ea5ca064af45e733b78ac3df5582d60fc68e6bc Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 17 Jun 2011 17:39:09 -0400
Subject: [PATCH] fixing args

---
 whalesong.rkt | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/whalesong.rkt b/whalesong.rkt
index 0b4da29..a7c2f0a 100755
--- a/whalesong.rkt
+++ b/whalesong.rkt
@@ -35,8 +35,8 @@
    "The Whalesong command-line tool for compiling Racket to JavaScript"
    ["build" "build a standalone xhtml package" 
             "Builds a Racket program and its required dependencies into a standalone .xhtml file."
-            #:args paths
-            (do-the-build paths)]
+            #:args (path)
+            (do-the-build path)]
    ["get-runtime" "print the runtime library to standard output"
                   "Prints the runtime JavaScript library that's used by Whalesong programs."
                   #:args ()
@@ -50,19 +50,18 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
-(define (do-the-build filenames)
-  (for ([f filenames])
-       (let-values ([(base filename dir?)
-                     (split-path f)])
-         (let ([output-filename
-                (build-path
-                 (regexp-replace #rx"[.](rkt|ss)$" (path->string filename) ".xhtml"))])
-           (call-with-output-file* output-filename
-                                   (lambda (op)
-                                     (package-standalone-xhtml
-                                      (make-ModuleSource (build-path f))
-                                      op))
-                                   #:exists 'replace)))))
+(define (do-the-build f)
+  (let-values ([(base filename dir?)
+                (split-path f)])
+    (let ([output-filename
+           (build-path
+            (regexp-replace #rx"[.](rkt|ss)$" (path->string filename) ".xhtml"))])
+      (call-with-output-file* output-filename
+                              (lambda (op)
+                                (package-standalone-xhtml
+                                 (make-ModuleSource (build-path f))
+                                 op))
+                              #:exists 'replace))))