diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-09 23:58:27 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-09 23:58:27 -0500 |
| commit | a34b02006527d28db5df5c6553be804770b81f79 (patch) | |
| tree | 526fe400e5a8c34b32a3d93439197db09c7f84ad /clojure/src/step0_repl.clj | |
| parent | edc3b0640f1b773e185550448e2086279f7b1a7f (diff) | |
| download | mal-a34b02006527d28db5df5c6553be804770b81f79.tar.gz mal-a34b02006527d28db5df5c6553be804770b81f79.zip | |
Fix metadata on functions.
- Don't use metadata to store ast, env, params data.
- In Clojure, store metadata on the :meta key of the real metadata.
This also allows using any datatype as metadata.
Diffstat (limited to 'clojure/src/step0_repl.clj')
| -rw-r--r-- | clojure/src/step0_repl.clj | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/clojure/src/step0_repl.clj b/clojure/src/step0_repl.clj index 7a050c7..f6201dd 100644 --- a/clojure/src/step0_repl.clj +++ b/clojure/src/step0_repl.clj @@ -12,13 +12,12 @@ (eval (read-string ast))) ;; print -(defn PRINT [exp] - exp) +(defn PRINT [exp] exp) ;; repl (defn rep [strng] (PRINT (EVAL (READ strng), {}))) -(defn -main [& args] +(defn -main [& args] (loop [] (let [line (readline/readline "user> ")] (when line |