Clojure: only load readline history once.

mboxed · Jan 9, 2015 · 47930f7 · 47930f7
1 parent f4c8a09
commit 47930f7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/clojure/src/readline.clj b/clojure/src/readline.clj
@@ -27,7 +27,8 @@
   (def load-history (jna/to-fn Integer readline/read_history)))
 
 (defn readline [prompt & [lib]]
-  (if (not @history-loaded)
+  (when (not @history-loaded)
+    (reset! history-loaded true)
     (load-history HISTORY-FILE))
   (let [line (readline-call prompt)]
     (when line