correcting typo in the trampoline detection. Thanks to Campbell Hewett for the bug report.

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)

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);