diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-02-18 14:48:25 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-02-18 14:48:25 +0000 |
| commit | 6868826bd45cb2cc1d78ba411ce135ae69270044 (patch) | |
| tree | 26e9d72c7cd9450eff4560a8fc05e1201f4f197a /src | |
| parent | 3c074da22e8e6fe4744626b8d30127c851247068 (diff) | |
find-doc sorts names
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot.clj b/src/boot.clj index 298edbd1..a94242fb 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1800,7 +1800,7 @@ re-find (defn find-doc [re-string] (let [re (re-pattern re-string)] - (dorun (for [ns (all-ns) v (vals (ns-interns ns))] + (dorun (for [ns (all-ns) v (sort-by (comp :name meta) (vals (ns-interns ns)))] (and (:doc ^v) (or (re-find (re-matcher re (:doc ^v))) (re-find (re-matcher re (str (:name ^v)))))) |