mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 10:37:58 +03:00
23 lines
399 B
Hy
Executable File
23 lines
399 B
Hy
Executable File
#!/usr/bin/env hy
|
|
|
|
(defn READ [str]
|
|
str)
|
|
|
|
(defn EVAL [ast env]
|
|
ast)
|
|
|
|
(defn PRINT [exp]
|
|
exp)
|
|
|
|
(defn REP [str]
|
|
(PRINT (EVAL (READ str) {})))
|
|
|
|
(defmain [&rest args]
|
|
;; indented to match later steps
|
|
(while True
|
|
(try
|
|
(do (setv line (raw_input "user> "))
|
|
(if (= "" line) (continue))
|
|
(print (REP line)))
|
|
(except [EOFError] (break)))))
|