diff --git a/js-assembler/package.rkt b/js-assembler/package.rkt index c515bb5..530893b 100644 --- a/js-assembler/package.rkt +++ b/js-assembler/package.rkt @@ -631,11 +631,13 @@ var invokeMainModule = function() { .css('whitespace', 'pre') .appendTo(subcontextDiv); } else if (plt.runtime.isProcedure(context[i])) { - $('
').text('in ' + context[i].displayName) - .addClass('stacktrace') - .css('margin-left', '10px') - .css('whitespace', 'pre') - .appendTo(subcontextDiv); + if (context[i].displayName) { + $('
').text('in ' + context[i].displayName) + .addClass('stacktrace') + .css('margin-left', '10px') + .css('whitespace', 'pre') + .appendTo(subcontextDiv); + } } } } diff --git a/js-assembler/runtime-src/baselib-functions.js b/js-assembler/runtime-src/baselib-functions.js index 3d24b89..4f4fce0 100644 --- a/js-assembler/runtime-src/baselib-functions.js +++ b/js-assembler/runtime-src/baselib-functions.js @@ -81,18 +81,10 @@ var isProcedure = function (x) { - return (typeof (x) === 'function' || - x instanceof Closure); + return (typeof (x) === 'function' || x instanceof Closure); }; - - - - - - - var coersePrimitiveToJavaScript = function (v, MACHINE) { return function (succ, fail) { try { diff --git a/js-assembler/runtime-src/baselib-primitives.js b/js-assembler/runtime-src/baselib-primitives.js index a033096..25f1a13 100644 --- a/js-assembler/runtime-src/baselib-primitives.js +++ b/js-assembler/runtime-src/baselib-primitives.js @@ -603,7 +603,7 @@ 'list*', baselib.arity.makeArityAtLeast(1), function (M) { - var result = checkList(M, 'list*', M.a - 1), i; + var result = checkAny(M, 'list*', M.a - 1), i; for (i = M.a - 2; i >= 0; i--) { result = makePair(M.e[M.e.length - 1 - i], result);