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 0ac2383b..891dabfd 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1320,6 +1320,13 @@ make-proxy [classes method-map] (. *out* (append \newline)) nil) +(defn flush + "Flushes the output stream that is the current value of + *out*" + [] + (. *out* (flush)) + nil) + (defn prn "Same as pr followed by (newline)" [& more] @@ -1353,6 +1360,10 @@ make-proxy [classes method-map] ([stream eof-error? eof-value recursive?] (. clojure.lang.LispReader (read stream eof-error? eof-value recursive?)))) +(defn read-line + "Reads the next line from stream that is the current value of *in* ." + [] (. *in* (readLine))) + (defmacro with-open "Evaluates body in a try expression with name bound to the value of init, and a finally clause that calls (. name (close))." |