1 files changed, 0 insertions, 106 deletions
diff --git a/src/clojure/contrib/ns_utils.clj b/src/clojure/contrib/ns_utils.clj
deleted file mode 100644
index d77b3217..00000000
--- a/src/clojure/contrib/ns_utils.clj
+++ /dev/null
@@ -1,106 +0,0 @@
-;;  Copyright (c) Stephen C. Gilardi. All rights reserved.  The use and
-;;  distribution terms for this software are covered by the Eclipse Public
-;;  License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
-;;  be found in the file epl-v10.html at the root of this distribution.  By
-;;  using this software in any fashion, you are agreeing to be bound by the
-;;  terms of this license.  You must not remove this notice, or any other,
-;;  from this software.
-;;
-;;  ns-utils
-;;
-;;  Namespace Utilities
-;;
-;;    'get-ns'          returns the namespace named by a symbol or throws
-;;                      if the namespace does not exist
-;;
-;;    'ns-vars'         returns a sorted seq of symbols naming public vars
-;;                      in a namespace
-;;
-;;    'print-dir'       prints a sorted directory of public vars in a
-;;                      namespace
-;;
-;;    'print-docs'      prints documentation for the public vars in a
-;;                      namespace
-;;
-;;    'immigrate'       Create a public var in this namespace for each
-;;                      public var in the namespaces named by ns-names.
-;;                      From James Reeves
-;;  Convenience
-;;
-;;    'vars'            returns a sorted seq of symbols naming public vars
-;;                      in a namespace (macro)
-;;
-;;    'dir'             prints a sorted directory of public vars in a
-;;                      namespace (macro)
-;;
-;;    'docs'            prints documentation for the public vars in a
-;;                      namespace (macro)
-;;
-;;  scgilardi (gmail)
-;;  23 April 2008
-
-(ns 
-  #^{:author "Stephen C. Gilardi",
-     :doc "Namespace utilities"}
-  clojure.contrib.ns-utils
-  (:use clojure.contrib.except))
-
-;; Namespace Utilities
-
-(defn get-ns
-  "Returns the namespace named by ns-sym or throws if the
-  namespace does not exist"
-  [ns-sym]
-  (let [ns (find-ns ns-sym)]
-    (throw-if (not ns) "Unable to find namespace: %s" ns-sym)
-    ns))
-
-(defn ns-vars
-  "Returns a sorted seq of symbols naming public vars in
-  a namespace"
-  [ns]
-  (sort (map first (ns-publics ns))))
-
-(defn print-dir
-  "Prints a sorted directory of public vars in a namespace"
-  [ns]
-  (doseq [item (ns-vars ns)]
-    (println item)))
-
-(defn print-docs
-  "Prints documentation for the public vars in a namespace"
-  [ns]
-  (doseq [item (ns-vars ns)]
-    (print-doc (ns-resolve ns item))))
-
-;; Convenience
-
-(defmacro vars
-  "Returns a sorted seq of symbols naming public vars in
-  a namespace"
-  [nsname]
-  `(ns-vars (get-ns '~nsname)))
-
-(defmacro dir
-  "Prints a sorted directory of public vars in a namespace"
-  [nsname]
-  `(print-dir (get-ns '~nsname)))
-
-(defmacro docs
-  "Prints documentation for the public vars in a namespace"
-  [nsname]
-  `(print-docs (get-ns '~nsname)))
-
-(defn immigrate
-  "Create a public var in this namespace for each public var in the
-  namespaces named by ns-names. The created vars have the same name, root
-  binding, and metadata as the original except that their :ns metadata
-  value is this namespace."
-  [& ns-names]
-  (doseq [ns ns-names]
-    (require ns)
-    (doseq [[sym var] (ns-publics ns)]
-      (let [sym (with-meta sym (assoc (meta var) :ns *ns*))]
-        (if (.hasRoot var)
-          (intern *ns* sym (.getRoot var))
-          (intern *ns* sym))))))