From 9cd4dc45f5c18b5ae788f2084f9dea87ed7ea845 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <technomancy@gmail.com>
Date: Wed, 2 Mar 2011 22:12:04 -0800
Subject: [PATCH] Fix repl for :eval-in-project projects.

---
 src/leiningen/compile.clj | 3 ++-
 src/leiningen/repl.clj    | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/leiningen/compile.clj b/src/leiningen/compile.clj
index 04149fba..333212e8 100644
--- a/src/leiningen/compile.clj
+++ b/src/leiningen/compile.clj
@@ -169,7 +169,8 @@
       (when (:debug project)
         (System/setProperty "clojure.debug" "true"))
       ;; need to at least pretend to return an exit code
-      (try (eval form)
+      (try (binding [*warn-on-reflection* (:warn-on-reflection project)]
+             (eval form))
            0
            (catch Exception e
              (.printStackTrace e)
diff --git a/src/leiningen/repl.clj b/src/leiningen/repl.clj
index 5856923b..681c6983 100644
--- a/src/leiningen/repl.clj
+++ b/src/leiningen/repl.clj
@@ -89,6 +89,7 @@
   (.start (Thread. #(copy-out-loop reader)))
   (loop [reader reader, writer writer]
     (let [input (read-line)]
+      ;; TODO: ^D is not being honored
       (when (and input (not= "" input))
         (.write writer (str input "\n"))
         (.flush writer)