             (or source-path "File"))
           (merge
             {:ns initial-ns}
-            (select-keys @app-env [:verbose :static-fns :fn-invoke-direct])
+            (select-keys @app-env [:verbose :checked-arrays :static-fns :fn-invoke-direct])
             (if expression?
               (merge {:context       :expr
                       :def-emits-var true}

    {:ns         @current-ns
     :context    :expr
     :source-map true}
    (select-keys @app-env [:verbose :static-fns :fn-invoke-direct])))

(defn- process-in-ns
  [argument]

  (let [m (merge
            (when-not *assert*
              {:elide-asserts true})
            (select-keys @app-env [:checked-arrays :static-fns :fn-invoke-direct]))]
    (if (empty? m)
      nil
      m)))
