diff options
Diffstat (limited to 'src/boot.clj')
| -rw-r--r-- | src/boot.clj | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/boot.clj b/src/boot.clj index e381bfdc..04031be6 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -584,6 +584,16 @@ (print x writer) (newline))) +(defn read + ([] + (thisfn *in*)) + ([stream] + (thisfn stream :t nil)) + ([stream eof-error? eof-value] + (thisfn stream eof-error? eof-value nil)) + ([stream eof-error? eof-value recursive?] + (. clojure.lang.LispReader (read stream eof-error? eof-value recursive?)))) + (defmacro .-> [x & members] (let [gx (gensym)] `(let [~gx ~x] @@ -625,6 +635,7 @@ into-array array make-proxy new-proxy prn print newline *out* *current-namespace* .-> + read *in* time )) |