behavior chased to incorrect definition of not. Fixed\!

assemble-open-coded.rkt

@@ -89,7 +89,7 @@
            (format "(~a === RUNTIME.NULL)" (first checked-operands))]
 
           [(not)
-           (format "(!(~a))" (first checked-operands))]
+           (format "(~a === false)" (first checked-operands))]
           
           [(eq?)
            (format "(~a === ~a)" (first checked-operands) (second checked-operands))])))

runtime.js

@@ -687,7 +687,7 @@
     
     Primitives['not'] = function(MACHINE) {
 	var firstArg = MACHINE.env[MACHINE.env.length-1];
-	return (!firstArg);
+	return (firstArg === false);
     };
     Primitives['not'].arity = 1;
     Primitives['not'].displayName = 'not';

test-browser-evaluate.rkt

@@ -141,6 +141,10 @@ EOF
 (test '(displayln (not (not 3)))
       "true\n")
 
+(test '(displayln (not 0))
+      "false\n")
+
+
 (test '(displayln (add1 1))
       "2\n")