anchor.diff:        (write-line "    C.prototype = obj;" out)
         (write-line "    return new C;" out)))
   
  -    ;; Custom print directive handlers
  -  (iter (for (directive handler) in-hashtable *custom-print-handlers*)
  -        (write-line "" out)
  -        (format out "~A.~A = ~A;" name (print-handler-name handler) (print-handler-impl handler))))
  +  ;; Custom print directive handlers
  +  (iter (for (directive handler) in-hashtable *js-custom-print-handlers*)
  +        (when (print-handler-impl handler)
  +          (write-line "" out)
  +          (format out "~A.~A = ~A;~%" name (print-handler-name handler) (print-handler-impl handler)))))
   
   (defun write-namespace-declaration (name out)
     (iter (for pos first (position #\. name) then (position #\. name :start (1+ pos)))
  
positive.code:   (format out "~A = (function () {
  var module = { };" name)
    (write-namespace-helpers "module" out)
    (write-namespace-body "module" (namespace-templates (parse-template namespace)) out)
    (write-string "return module; })();
  " out))
  
  
negative.code: 
  (defun compile-to-requirejs (obj)
    (with-output-to-string (out)
      (write-string "define(" out)
      ;; Custom print directive dependencies
      (unless (= 0 (hash-table-count *requirejs-deps*))
        (write-string "[" out)
        (iter (for (uri nil) in-hashtable *requirejs-deps*)
              (unless (first-iteration-p)
                (write-string "," out))
              (format out "'~A'" uri))
        (write-string "], " out))
      (write-string "function (" out)
      (unless (= 0 (hash-table-count *requirejs-deps*))
        (iter (for (nil module) in-hashtable *requirejs-deps*)
              (unless (first-iteration-p)
                (write-string "," out))
            (write-string module out)))
      (write-line ") {
  var module = { };" out)
      (let ((*js-custom-print-handlers* *requirejs-custom-print-handlers*))
        (write-namespace-helpers "module" out)
        (write-namespace-body "module" (namespace-templates (parse-template obj)) out))
      (write-string "return module; });
  " out)))
  
  