blob: 7a1a44361b5828685f26d12f25bea8cd9a6402e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(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), {})))
;; repl loop
(defn repl-loop []
(let [line (readline/readline "user> ")]
(when line
(println (rep line))
(recur))))
(defn -main [& args]
(repl-loop))
|
