From 3169070063b2cb877200117ebb384269d73bcb93 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Mon, 24 Mar 2014 16:32:24 -0500 Subject: Current state of mal for Clojure West lighting talk. --- clojure/src/step0_repl.clj | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 clojure/src/step0_repl.clj (limited to 'clojure/src/step0_repl.clj') diff --git a/clojure/src/step0_repl.clj b/clojure/src/step0_repl.clj new file mode 100644 index 0000000..7a050c7 --- /dev/null +++ b/clojure/src/step0_repl.clj @@ -0,0 +1,26 @@ +(ns step0-repl + (:require [readline])) + + +;; read +(defn READ [& [strng]] + (let [line (if strng strng (read-line))] + strng)) + +;; eval +(defn EVAL [ast env] + (eval (read-string ast))) + +;; print +(defn PRINT [exp] + exp) + +;; repl +(defn rep [strng] (PRINT (EVAL (READ strng), {}))) + +(defn -main [& args] + (loop [] + (let [line (readline/readline "user> ")] + (when line + (println (rep line)) + (recur))))) -- cgit v1.2.3