diff options
| author | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
| commit | 10b07148ba8efec543ded60a4b7916960709ce1e (patch) | |
| tree | 43c10dbc3c6bd2035c34cabf5aca3aa08e37a2f6 /clojure | |
| parent | 64574360c510d644f5b8c175dbe3114f1f2d7b68 (diff) | |
| download | mal-10b07148ba8efec543ded60a4b7916960709ce1e.tar.gz mal-10b07148ba8efec543ded60a4b7916960709ce1e.zip | |
All step0: add test, fix bugs, remove step0 eval.
Diffstat (limited to 'clojure')
| -rw-r--r-- | clojure/src/step0_repl.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/clojure/src/step0_repl.clj b/clojure/src/step0_repl.clj index 7a1a443..405037a 100644 --- a/clojure/src/step0_repl.clj +++ b/clojure/src/step0_repl.clj @@ -4,15 +4,15 @@ ;; read (defn READ [& [strng]] - (let [line (if strng strng (read-line))] - strng)) + strng) ;; eval (defn EVAL [ast env] - (eval (read-string ast))) + ast) ;; print -(defn PRINT [exp] exp) +(defn PRINT [exp] + exp) ;; repl (defn rep [strng] (PRINT (EVAL (READ strng), {}))) |