                                  fn*->cannonical-fn*
                                  (rewrite-fn* used-locals)))
               partial-form `(partial ~(symbol sym) ~@used-locals)
-              def-ast      (util/ast def-form     (update-ns-map! (:env ast)))
+              def-ast      (util/ast def-form     (:env ast))
               partial-ast  (util/ast partial-form (:env ast))]
 
           ;; create the new def

                          pattern/fn->name
                          symbol)
                  {:keys [statements ret]} (util/ast `(do (def ~sym)
                                                    ~sym))
                  def-ast (first statements)]

              ;; save the def ast

        ;;    all the locals of the body expression.

        (let [bindings     (:bindings ast)
              locals->vars (atom {})
              env          (:env ast)]

          ;; create the forward defs
          (doseq [b bindings]
