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