diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-23 21:59:50 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-23 21:59:50 -0500 |
| commit | 6301e0b6374cecc5599665be14d6ddc6a31ce1e8 (patch) | |
| tree | dbf1dc2ff6c682fd87c72a7907e7f6e59c8d4c03 /clojure/src/step7_quote.clj | |
| parent | 89bd4de1e2704c1bc562788b2c5e4fc08b71a538 (diff) | |
| download | mal-6301e0b6374cecc5599665be14d6ddc6a31ce1e8.tar.gz mal-6301e0b6374cecc5599665be14d6ddc6a31ce1e8.zip | |
All: TCO let* and quasiquote.
Diffstat (limited to 'clojure/src/step7_quote.clj')
| -rw-r--r-- | clojure/src/step7_quote.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/clojure/src/step7_quote.clj b/clojure/src/step7_quote.clj index ffcca24..633a81c 100644 --- a/clojure/src/step7_quote.clj +++ b/clojure/src/step7_quote.clj @@ -60,13 +60,13 @@ (let [let-env (env/env env)] (doseq [[b e] (partition 2 a1)] (env/env-set let-env b (EVAL e let-env))) - (EVAL a2 let-env)) + (recur a2 let-env)) 'quote a1 'quasiquote - (EVAL (quasiquote a1) env) + (recur (quasiquote a1) env) 'do (do (eval-ast (->> ast (drop-last) (drop 1)) env) |