CLJ-1176 - source throws error when *read-eval* is :unknown

Signed-off-by: Stuart Halloway <[email protected]>

Author: puredanger

src/clj/clojure/repl.clj

@@ -150,7 +150,9 @@ itself (not its value) is returned. The reader macro #'x expands to (var x)."}})
                       (read [] (let [i (proxy-super read)]
                                  (.append text (char i))
                                  i)))]
-            (read (PushbackReader. pbr))
+            (if (= :unknown *read-eval*)
+              (throw (IllegalStateException. "Unable to read source while *read-eval* is :unknown."))
+              (read (PushbackReader. pbr)))
             (str text)))))))
 
 (defmacro source

test/clojure/test_clojure/repl.clj

@@ -15,6 +15,12 @@
   (is (= (platform-newlines "(defn foo [])\n") (with-out-str (source clojure.test-clojure.repl.example/foo))))
   (is (nil? (source-fn 'non-existent-fn))))
 
+(deftest test-source-read-eval-unknown
+  (is (thrown? IllegalStateException (binding [*read-eval* :unknown] (source reduce)))))
+
+(deftest test-source-read-eval-false
+  (is (binding [*read-eval* false] (with-out-str (source reduce)))))
+
 (deftest test-dir
   (is (thrown? Exception (dir-fn 'non-existent-ns)))
   (is (= '[bar foo] (dir-fn 'clojure.test-clojure.repl.example)))