[jackhill/mal.git] / clojure / src / step0_repl.clj

(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)))))
Commit	Line	Data
31690700 JM	1	(ns step0-repl
	2	(:require [readline]))
	3
	4
	5	;; read
	6	(defn READ [& [strng]]
	7	(let [line (if strng strng (read-line))]
	8	strng))
	9
	10	;; eval
	11	(defn EVAL [ast env]
	12	(eval (read-string ast)))
	13
	14	;; print
	15	(defn PRINT [exp]
	16	exp)
	17
	18	;; repl
	19	(defn rep [strng] (PRINT (EVAL (READ strng), {})))
	20
	21	(defn -main [& args]
	22	(loop []
	23	(let [line (readline/readline "user> ")]
	24	(when line
	25	(println (rep line))
	26	(recur)))))