Skip to content

Commit b1102f6

Browse files
committed
slam.hound.search: avoid a compile-time computation
`(get-available-classes)` was invoked at compile-time. That was plausibly problematic.
1 parent fdbe66d commit b1102f6

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

src/refactor_nrepl/ns/slam/hound/search.clj

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -121,18 +121,18 @@
121121
(all-classpath-entries)))
122122

123123
(def available-classes
124-
(get-available-classes))
124+
(delay (get-available-classes)))
125125

126126
(defn- get-available-classes-by-last-segment
127127
[]
128128
(delay
129-
(group-by #(symbol (peek (string/split (str %) #"\."))) available-classes)))
129+
(group-by #(symbol (peek (string/split (str %) #"\."))) @available-classes)))
130130

131131
(def available-classes-by-last-segment
132-
(get-available-classes-by-last-segment))
132+
(delay (get-available-classes-by-last-segment)))
133133

134134
(defn reset
135135
"Reset the cache of classes"
136136
[]
137-
(alter-var-root #'available-classes (constantly (get-available-classes)))
138-
(alter-var-root #'available-classes-by-last-segment (constantly (get-available-classes-by-last-segment))))
137+
(alter-var-root #'available-classes (constantly (delay (get-available-classes))))
138+
(alter-var-root #'available-classes-by-last-segment (constantly (delay (get-available-classes-by-last-segment)))))

0 commit comments

Comments
 (0)