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

fixing args

Browse Source
This commit is contained in:
Danny Yoo 2011-06-17 17:39:09 -04:00
parent cafd001f9b
commit 0ea5ca064a
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
whalesong.rkt
View File

@ -35,8 +35,8 @@
"The Whalesong command-line tool for compiling Racket to JavaScript" "The Whalesong command-line tool for compiling Racket to JavaScript"
["build" "build a standalone xhtml package" ["build" "build a standalone xhtml package"
"Builds a Racket program and its required dependencies into a standalone .xhtml file." "Builds a Racket program and its required dependencies into a standalone .xhtml file."
#:args paths #:args (path)
(do-the-build paths)] (do-the-build path)]
["get-runtime" "print the runtime library to standard output" ["get-runtime" "print the runtime library to standard output"
"Prints the runtime JavaScript library that's used by Whalesong programs." "Prints the runtime JavaScript library that's used by Whalesong programs."
#:args () #:args ()
@ -50,8 +50,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (do-the-build filenames) (define (do-the-build f)
(for ([f filenames])
(let-values ([(base filename dir?) (let-values ([(base filename dir?)
(split-path f)]) (split-path f)])
(let ([output-filename (let ([output-filename
@ -62,7 +61,7 @@
(package-standalone-xhtml (package-standalone-xhtml
(make-ModuleSource (build-path f)) (make-ModuleSource (build-path f))
op)) op))
#:exists 'replace))))) #:exists 'replace))))