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

typos

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 15:14:50 -04:00
parent e36dddf430
commit 534bb2ad89
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
js-assembler/package.rkt
View File

@ -28,6 +28,7 @@
(provide package (provide package
package-anonymous package-anonymous
package-standalone-xhtml package-standalone-xhtml
get-inert-code
get-standalone-code get-standalone-code
write-standalone-code write-standalone-code
get-runtime get-runtime
@ -297,7 +298,7 @@ MACHINE.modules[~s] =
(display *header* op) (display *header* op)
(display (quote-cdata (display (quote-cdata
(string-append (get-runtime) (string-append (get-runtime)
(get-code source-code) (get-inert-code source-code)
invoke-main-module-code)) op) invoke-main-module-code)) op)
(display *footer* op)) (display *footer* op))
@ -454,8 +455,8 @@ EOF
)) ))
;; get-code: source -> string ;; get-inert-code: source -> string
(define (get-code source-code) (define (get-inert-code source-code)
(let ([buffer (open-output-string)]) (let ([buffer (open-output-string)])
(package source-code (package source-code
#:should-follow-children? (lambda (src) #t) #:should-follow-children? (lambda (src) #t)

6
whalesong-helpers.rkt
View File

@ -50,7 +50,7 @@
(path->string filename) (path->string filename)
".xhtml"))]) ".xhtml"))])
(unless (directory-exists? (current-output-dir)) (unless (directory-exists? (current-output-dir))
(fprintf (current-report-form) "Creating destination directory ~s" (current-output-dir)) (fprintf (current-report-port) "Creating destination directory ~s" (current-output-dir))
(make-directory* (current-output-dir))) (make-directory* (current-output-dir)))
(parameterize ([current-on-resource (parameterize ([current-on-resource
(lambda (r) (lambda (r)
@ -97,7 +97,7 @@
(path->string filename) (path->string filename)
".html"))]) ".html"))])
(unless (directory-exists? (current-output-dir)) (unless (directory-exists? (current-output-dir))
(fprintf (current-report-form) "Creating destination directory ~s" (current-output-dir)) (fprintf (current-report-port) "Creating destination directory ~s" (current-output-dir))
(make-directory* (current-output-dir))) (make-directory* (current-output-dir)))
(parameterize ([current-on-resource (parameterize ([current-on-resource
(lambda (r) (lambda (r)
@ -124,7 +124,7 @@
(call-with-output-file* (build-path (current-output-dir) output-js-filename) (call-with-output-file* (build-path (current-output-dir) output-js-filename)
(lambda (op) (lambda (op)
(display (get-runtime) op) (display (get-runtime) op)
(display (get-code (make-ModuleSource (build-path f))) (display (get-inert-code (make-ModuleSource (build-path f)))
op)) op))
#:exists 'replace) #:exists 'replace)