Could anyone help me understand why the following code is breaking?
(require '[clojure.pprint :refer [with-pprint-dispatch code-dispatch pprint]])
(with-pprint-dispatch code-dispatch (pprint (read-string "(^:once fn* [x] x)")))
IllegalArgumentException Don't know how to create ISeq from:
clojure.lang.Symbol clojure.lang.RT.seqFrom (RT.java:505)
#(
The "#(" is not a typo. It starts to print and then fails. Looking at the code,
it looks like there's an issue here:
(defn- pprint-anon-func [alis]
(let [args (second alis)
nlis (first (rest (rest alis)))]
(if (vector? args)
(binding [*symbol-map* (if (= 1 (count args))
{(first args) "%"}
(into {}
(map
#(vector %1 (str \% %2))
args
(range 1 (inc (count args))))))]
((formatter-out "~<#(~;~@{~w~^ ~_~}~;)~:>") nlis))
(pprint-simple-code-list alis))))
I squinted at it for a bit, but I'm not sure what's up. Anyone have any ideas?
Thanks,
--
'(Devin Walters)
--
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
