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

putting use strict in generated code to keep me honest.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-06 16:50:03 -07:00
parent 07b393f693
commit 73a6967942
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
whalesong/js-assembler/assemble.rkt
View File

@ -39,6 +39,7 @@
(parameterize ([current-interned-symbol-table ((inst make-hash Symbol Symbol))] (parameterize ([current-interned-symbol-table ((inst make-hash Symbol Symbol))]
[current-interned-constant-closure-table ((inst make-hash Symbol MakeCompiledProcedure))]) [current-interned-constant-closure-table ((inst make-hash Symbol MakeCompiledProcedure))])
(display "(function(M, success, fail, params) {\n" op) (display "(function(M, success, fail, params) {\n" op)
(display "\"use strict\";\n" op)
(display "var param;\n" op) (display "var param;\n" op)
(display "var RT = plt.runtime;\n" op) (display "var RT = plt.runtime;\n" op)

2
whalesong/js-assembler/package.rkt
View File

@ -393,7 +393,7 @@ M.modules[~s] =
(define start-time (current-inexact-milliseconds)) (define start-time (current-inexact-milliseconds))
(cond (cond
[(UninterpretedSource? src) [(UninterpretedSource? src)
(fprintf op "(function(M) { ~a }(plt.runtime.currentMachine));" (UninterpretedSource-datum src))] (fprintf op "(function(M) {\n\"use strict\";\n ~a }(plt.runtime.currentMachine));" (UninterpretedSource-datum src))]
[else [else
(fprintf op "(") (fprintf op "(")
(on-source src stmts op) (on-source src stmts op)