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

closure compile is now dynamically required, rather than always required. This should relax the javascript requirement.

Browse Source
This commit is contained in:
Danny Yoo 2011-09-10 13:41:07 -04:00
parent 7a2ee5ad18
commit 3ba6c2dcc9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
js-assembler/package.rkt
View File

@ -19,10 +19,12 @@
racket/port racket/port
(prefix-in query: "../lang/js/query.rkt") (prefix-in query: "../lang/js/query.rkt")
(prefix-in resource-query: "../resource/query.rkt") (prefix-in resource-query: "../resource/query.rkt")
(planet dyoo/closure-compile:1:1)
(prefix-in runtime: "get-runtime.rkt") (prefix-in runtime: "get-runtime.rkt")
(prefix-in racket: racket/base)) (prefix-in racket: racket/base))
;; There is a dynamic require for (planet dyoo/closure-compile) that's done
;; if compression is turned on.
;; TODO: put proper contracts here ;; TODO: put proper contracts here
@ -365,11 +367,13 @@ M.modules[~s] =
(fprintf op "})(plt.runtime.currentMachine,\nfunction(){ plt.runtime.setReadyTrue(); },\nfunction(){},\n{});\n"))) (fprintf op "})(plt.runtime.currentMachine,\nfunction(){ plt.runtime.setReadyTrue(); },\nfunction(){},\n{});\n")))
(define closure-compile-ns (make-base-namespace))
(define (compress x) (define (compress x)
(cond [(current-compress-javascript?) (cond [(current-compress-javascript?)
(log-debug "compressing javascript...") (log-debug "compressing javascript...")
(closure-compile x)] (parameterize ([current-namespace closure-compile-ns])
(define closure-compile (dynamic-require '(planet dyoo/closure-compile) 'closure-compile))
(closure-compile x))]
[else [else
(log-debug "not compressing javascript...") (log-debug "not compressing javascript...")
x])) x]))