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

before

Browse Source
This commit is contained in:
Danny Yoo 2011-12-04 19:00:56 -05:00
parent 6904222c69
commit ccdb0c88f6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
js-assembler/runtime-src/runtime.js
View File

@ -441,13 +441,14 @@
//
var recomputeMaxNumBouncesBeforeYield;
var scheduleTrampoline = function(MACHINE, f) {
var scheduleTrampoline = function(MACHINE, f, before) {
setTimeout(
function() {
MACHINE.exclusiveLock.acquire(
'scheduleTrampoline',
function(release) {
release();
if (before) { before(); }
MACHINE.trampoline(f);
});
},
@ -460,8 +461,7 @@
var makeRestartFunction = function(MACHINE) {
var oldArgcount = MACHINE.a;
return function(f) {
MACHINE.a = oldArgcount;
return scheduleTrampoline(MACHINE, f);
return scheduleTrampoline(MACHINE, f, function() { MACHINE.a = oldArgcount; });
};
};

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version)
(: version String)
(define version "1.98")
(define version "1.100")