fixing type of list*; kanren wasn't running properly

js-assembler/package.rkt

@@ -631,6 +631,7 @@ var invokeMainModule = function() {
                                     .css('whitespace', 'pre')
                                     .appendTo(subcontextDiv);
                         } else if (plt.runtime.isProcedure(context[i])) {
+                            if (context[i].displayName) {
                                 $('<div/>').text('in ' + context[i].displayName)
                                         .addClass('stacktrace')
                                         .css('margin-left', '10px')
@@ -639,6 +640,7 @@ var invokeMainModule = function() {
                             }
                         }                                     
                     }
+                }
                 contextDiv.append(subcontextDiv);
                 M.params.currentErrorDisplayer(M, contextDiv);
             };

js-assembler/runtime-src/baselib-functions.js

@@ -81,18 +81,10 @@
 
 
     var isProcedure = function (x) {
-        return (typeof (x) === 'function' ||
+        return (typeof (x) === 'function' || x instanceof Closure);
-                x instanceof Closure);
     };
 
 
-
-
-
-
-
-
-  
     var coersePrimitiveToJavaScript = function (v, MACHINE) {
         return function (succ, fail) {
             try {

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