don't recur across try

clojure · Dec 19, 2010 · ec71724 · ec71724
1 parent 01036ea
commit ec71724
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/modules/find-namespaces/src/main/clojure/clojure/contrib/find_namespaces.clj b/modules/find-namespaces/src/main/clojure/clojure/contrib/find_namespaces.clj
@@ -54,12 +54,13 @@
   unevaluated form.  Returns nil if read fails or if a ns declaration
   cannot be found.  The ns declaration must be the first Clojure form
   in the file, except for (comment ...)  forms."
-  [^PushbackReader rdr]
+  [#^PushbackReader rdr]
-  (try (let [form (read rdr)]
+  (try
-         (cond
+   (loop [] (let [form (read rdr)]
-           (ns-decl? form) form
+              (cond
-           (comment? form) (recur rdr)
+               (ns-decl? form) form
-           :else nil))
+               (comment? form) (recur)
+               :else nil)))
        (catch Exception e nil)))
 
 (defn read-file-ns-decl