diff options
| author | Aaron Bedra and Stuart Halloway <pair@clojure.com> | 2010-07-23 13:22:37 -0400 |
|---|---|---|
| committer | Aaron Bedra and Stuart Halloway <pair@clojure.com> | 2010-07-23 13:26:48 -0400 |
| commit | c2645e31c941cf5c5b6f9fb9d4624e8ba8301af8 (patch) | |
| tree | 0cb065046821c2726462b93371c3a8c3731c9e3a | |
| parent | 4715ee32c79bc4521a0979c7b1a741ccff4594e2 (diff) | |
update strint to use clojure.core/slurp
| -rw-r--r-- | src/main/clojure/clojure/contrib/strint.clj | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/main/clojure/clojure/contrib/strint.clj b/src/main/clojure/clojure/contrib/strint.clj index 2333c5b1..53ddd639 100644 --- a/src/main/clojure/clojure/contrib/strint.clj +++ b/src/main/clojure/clojure/contrib/strint.clj @@ -15,8 +15,7 @@ (ns ^{:author "Chas Emerick", :doc "String interpolation for Clojure."} - clojure.contrib.strint - (:use [clojure.contrib.io :only (slurp*)])) + clojure.contrib.strint) (defn- silent-read "Attempts to clojure.core/read a single form from the provided String, returning @@ -26,7 +25,7 @@ [s] (try (let [r (-> s java.io.StringReader. java.io.PushbackReader.)] - [(read r) (slurp* r)]) + [(read r) (slurp r)]) (catch Exception e))) ; this indicates an invalid form -- the head of s is just string data (defn- interpolate |