Mercurial > rlm
diff src/rlm/println.clj @ 0:78a630e650d2
initial import
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 18 Oct 2011 00:57:08 -0700 |
parents | |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/src/rlm/println.clj Tue Oct 18 00:57:08 2011 -0700 1.3 @@ -0,0 +1,16 @@ 1.4 +(ns rlm.println) 1.5 + 1.6 + 1.7 +(def println-repl (bound-fn [& args] (apply println args))) 1.8 + 1.9 + 1.10 + 1.11 +(defn println-terminal [& more] 1.12 + (.println System/out (apply str more))) 1.13 + 1.14 + 1.15 +(defmacro print-to-repl [& forms] 1.16 + `(binding [clojure.core/*out* 1.17 + (java.io.PrintWriter. (clojure.java.io/writer System/out))] 1.18 + ~@forms)) 1.19 +