added with-in-str

1 files changed, 8 insertions, 0 deletions

diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj
index 7fbfd4d1..792cea31 100644
--- a/src/clj/clojure/boot.clj
+++ b/src/clj/clojure/boot.clj
@@ -2286,6 +2286,14 @@
        ~@body
        (str s#))))
 
+(defmacro with-in-str
+  "Evaluates body in a context in which *in* is bound to a fresh
+  StringReader initialized with the string s."
+  [s & body]
+  `(with-open s# (-> (java.io.StringReader. ~s) clojure.lang.LineNumberingPushbackReader.)
+     (binding [*in* s#]
+       ~@body)))
+
 (defn pr-str
   "pr to a string, returning it"
   {:tag String}