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

trying to get rid of the current success handler.

Browse Source
This commit is contained in:
Danny Yoo 2013-04-16 17:32:42 -06:00
parent 00908c8435
commit 0428a021bd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -65,7 +65,6 @@
(display (assemble-current-interned-constant-closure-table) op)
(display "M.params.currentErrorHandler = fail;\n" op)
(display "M.params.currentSuccessHandler = success;\n" op)
(display #<<EOF
for (param in params) {
if (Object.hasOwnProperty.call(params, param)) {
@ -80,6 +79,7 @@ EOF
(assemble-label (make-Label (BasicBlock-name (first basic-blocks)))))]
[else
;; Otherwise, we want to run under a trampolining context.
(display "M.c.push(new RT.Closure(function(M){ console.log('calling success'); setTimeout(success, 0); },RT.makeArityAtLeast(0),void(0),'toplevel'));\n" op)
(fprintf op "M.trampoline(~a, ~a); })"
(assemble-label (make-Label (BasicBlock-name (first basic-blocks))))
(cond [(eq? trampoline-option 'with-preemption)

4
whalesong/js-assembler/runtime-src/runtime.js
View File

@ -297,7 +297,6 @@
'currentOutputPort': new StandardOutputPort(),
'currentErrorPort': new StandardErrorPort(),
'currentInputPort': new StandardInputPort(),
'currentSuccessHandler': function(MACHINE) {},
'currentErrorHandler': function(MACHINE, exn) {
MACHINE.params.currentErrorDisplayer(
MACHINE,
@ -720,9 +719,10 @@
}
}
}
console.log('evaluation terminated');
that.running = false;
that.breakScheduled = false;
that.params.currentSuccessHandler(that);
release();
return;