mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 14:52:16 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
31 lines
690 B
Hy
Executable File
31 lines
690 B
Hy
Executable File
#!/usr/bin/env hy
|
|
|
|
(import sys traceback)
|
|
(import [reader [read-str Blank]])
|
|
(import [printer [pr-str]])
|
|
|
|
(defn READ [str]
|
|
(read-str str))
|
|
|
|
(defn EVAL [ast env]
|
|
ast)
|
|
|
|
(defn PRINT [exp]
|
|
(pr-str exp True))
|
|
|
|
(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))
|
|
(except [Blank])
|
|
(except [e Exception]
|
|
(print (.join "" (apply traceback.format_exception
|
|
(.exc_info sys))))))))
|