anchor.diff:       (& (eq t *have-environment-tests*)
           `((t5 . ,(make-environment-tests))))))
   
  -(defun js-files-compiler (tr)
  -  (+ `((list-of-early-defined-functions . ,#'(()
  -                                                (js-emit-early-defined-functions tr)))
  +(defun js-files-compiler ()
  +  (+ `((list-of-early-defined-functions . ,#'js-emit-early-defined-functions)
          (,(+ *js-env-path* "env-load-stub.lisp")))
        (mapcan [unless (eq 'c ._)
                  `((,(+ "environment/" _.)))]
  
positive.code: (defun js-transpile-epilogue ()
    (format nil "}break;}~%"))
  
  (defun js-emit-early-defined-functions (tr)
    (mapcar ^(push ',_. *defined-functions*)
            (transpiler-memorized-sources tr)))
  
  (defun js-emit-memorized-sources (tr)
    (clr (transpiler-memorize-sources? tr))
    (filter ^(%setq (slot-value ,_. '__source) ,(list 'quote ._))
            (transpiler-memorized-sources tr)))
  
  (defun js-make-decl-gen (tr)
    #'(()
  
negative.code:      `((,(+ *js-env-path* "late-macro.lisp"))
         (,(+ *js-env-path* "eval.lisp")))))
  
  (defun js-files-after-deps ()
    (+ `((late-symbol-function-assignments . ,#'emit-late-symbol-function-assignments)
         (memorized-source-emitter . ,#'js-emit-memorized-sources))
       (& *have-compiler?*
          (js-files-compiler))))
  
  (defun js-transpile (sources &key (transpiler nil) (obfuscate? nil) (print-obfuscations? nil) (files-to-update nil))
    (let tr transpiler
  