anchor.diff:  
   (define-js-macro %quote (x)
     (if (not (string= "" (symbol-name x)))
  -  	  `("symbol(\"" ,(symbol-name x) "\")")
  +  	  `("symbol(\"" ,(symbol-name x) "\", " ,(when (keywordp x) "true") ")")
   	  x))
   
   (define-js-macro %set-atom-fun (plc val)
  
positive.code: (defmacro define-js-binary (op repl-op)
    `(define-transpiler-binary *js-transpiler* ,op ,repl-op))
  
  (define-js-binary + "+")
  (define-js-binary - "-")
  (define-js-binary / "/")
  (define-js-binary * "*")
  (define-js-binary = "==")
  (define-js-binary < "<")
  (define-js-binary > ">")
  (define-js-binary >> ">>")
  (define-js-binary << "<<")
  (define-js-binary mod "%")
  (define-js-binary logxor "^")
  (define-js-binary eq "===")
  (define-js-binary bit-and "&")
  (define-js-binary bit-or "|")
  
  
negative.code: ;;;;; Transpiler: TRE to JavaScript
  ;;;;; Copyright (c) 2008-2009 Sven Klose <pixel@copei.de>
  ;;;;;
  ;;;;; Generating code
  
  ;;;; TRANSPILER-MACRO EXPANDER
  
  