diff --git a/js-assembler/assemble.rkt b/js-assembler/assemble.rkt index 1249cec..063dced 100644 --- a/js-assembler/assemble.rkt +++ b/js-assembler/assemble.rkt @@ -220,7 +220,7 @@ EOF (assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht) (assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht))] [else - (fprintf op "var ~a=function(M){--M.cbt<0;\n" + (fprintf op "var ~a=function(M){\n" (assemble-label (make-Label (BasicBlock-name a-basic-block)) blockht))]) (assemble-block-statements (BasicBlock-name a-basic-block) (BasicBlock-stmts a-basic-block) diff --git a/js-assembler/runtime-src/baselib-functions.js b/js-assembler/runtime-src/baselib-functions.js index 7931a6c..e22ac93 100644 --- a/js-assembler/runtime-src/baselib-functions.js +++ b/js-assembler/runtime-src/baselib-functions.js @@ -300,7 +300,7 @@ var proc = makeClosure(name, arity, function(M) { - --M.cbt; + M.cbt--; M.v = f(M); M.e.length -= M.a; return M.c.pop().label(M);