From 86b689f3d7111a9fa13da389a30f3dfdf877d1a4 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sat, 19 Apr 2014 13:04:09 -0500 Subject: All: *ARGV* and *host-language*. Misc syncing/fixes. --- clojure/src/step0_repl.clj | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'clojure/src/step0_repl.clj') diff --git a/clojure/src/step0_repl.clj b/clojure/src/step0_repl.clj index f6201dd..7a1a443 100644 --- a/clojure/src/step0_repl.clj +++ b/clojure/src/step0_repl.clj @@ -16,10 +16,12 @@ ;; repl (defn rep [strng] (PRINT (EVAL (READ strng), {}))) +;; repl loop +(defn repl-loop [] + (let [line (readline/readline "user> ")] + (when line + (println (rep line)) + (recur)))) (defn -main [& args] - (loop [] - (let [line (readline/readline "user> ")] - (when line - (println (rep line)) - (recur))))) + (repl-loop)) -- cgit v1.2.3