aboutsummaryrefslogtreecommitdiff
path: root/clojure/src/step8_macros.clj
diff options
context:
space:
mode:
Diffstat (limited to 'clojure/src/step8_macros.clj')
-rw-r--r--clojure/src/step8_macros.clj11
1 files changed, 6 insertions, 5 deletions
diff --git a/clojure/src/step8_macros.clj b/clojure/src/step8_macros.clj
index ed5638b..605e9d6 100644
--- a/clojure/src/step8_macros.clj
+++ b/clojure/src/step8_macros.clj
@@ -107,11 +107,12 @@
(recur a2 env)))
'fn*
- ^{:expression a2
- :environment env
- :parameters a1}
- (fn [& args]
- (EVAL a2 (env/env env a1 args)))
+ (with-meta
+ (fn [& args]
+ (EVAL a2 (env/env env a1 args)))
+ {:expression a2
+ :environment env
+ :parameters a1})
;; apply
(let [el (eval-ast ast env)