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

trying to fix timing load issue with firefox

Browse Source
This commit is contained in:
Danny Yoo 2011-09-14 16:27:14 -04:00
parent b9dd1fb9b5
commit f302414f9a
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
js-assembler/package.rkt
View File

@ -263,20 +263,16 @@ M.modules[~s] =
[(UninterpretedSource? src)
(fprintf op "~a" (UninterpretedSource-datum src))]
[else
(fprintf op "plt.runtime.ready(function() {
plt.runtime.setReadyFalse();
(")
(fprintf op "(")
(assemble/write-invoke stmts op)
(fprintf op ")(M,
function() {
if (window.console && window.console.log) {
window.console.log('loaded ' + ~s);
}
plt.runtime.setReadyTrue();
},
FAIL,
PARAMS);
});\n"
PARAMS);"
(format "~a" (source-name src)))
(define stop-time (current-inexact-milliseconds))
(fprintf (current-timing-port) " assembly: ~s milliseconds\n" (- stop-time start-time))
@ -288,11 +284,8 @@ M.modules[~s] =
(define (on-last-src)
(fprintf op "plt.runtime.ready(
function() {
plt.runtime.setReadyTrue();
SUCCESS();
});"))
(fprintf op "plt.runtime.setReadyTrue(); SUCCESS();"))
(define packaging-configuration