anchor.diff:  (define-js-binary bit-and "&")
   (define-js-binary bit-or "|")
   
  -(define-js-macro make-array (&rest ignored)
  -  "[]")
  +(define-js-macro make-array (&rest elements)
  +  `(%transpiler-native "[" ,@(transpiler-binary-expand "," elements) "]"))
   
   (define-js-macro aref (arr &rest idx)
     `(%transpiler-native ,arr
  
positive.code: 
  ;;;; TOPLEVEL
  
  (defun js-transpile (x)
    (with-open-file f (open "tre-base.js" :direction 'output)
      (format t "Compiling JavaScript core functions...~%")
      (format f "~A" (transpiler-pass2 *js-transpiler* *js-base*)))
    (transpiler-transpile *js-transpiler* x "js.js"))
  
  (defun js-machine (outfile)
    (with-open-file f (open outfile :direction 'output)
  
negative.code: ,(def-js-type-predicate arrayp "Array")
  ,(def-js-type-predicate stringp "String")
  ,(def-js-type-predicate functionp "Function")
  
  (defun atom (x)
    (not (consp x)))
  
  (defun apply ()
    (when (= 0 arguments.length)
  