Permalink
Browse files

Arguably more legible.

This makes save-env's source looks more like what it expands into.
  • Loading branch information...
1 parent f7df168 commit c0a45c242874043182d0c144781dcde5f752775d @amalloy amalloy committed Jul 7, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/serializable/fn.clj
View
@@ -8,9 +8,10 @@
(meta form))
quoted-form `(quote ~form)]
(if locals
- `(list `let ~(vec (apply concat (for [local locals]
- [`(quote ~local)
- `(list `quote ~local)])))
+ `(list `let [~@(for [local locals,
+ let-arg [`(quote ~local)
+ `(list `quote ~local)]]
+ let-arg)]
~quoted-form)
quoted-form)))

0 comments on commit c0a45c2

Please sign in to comment.