diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-12-10 23:58:25 -0800 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-12-10 23:58:25 -0800 |
| commit | eb73c54687a9ed63dc939bbe886170f4a47455ed (patch) | |
| tree | 54a60cf03e5bf6757aa7fe92ce70fe5d97d60e30 /src/clojure/contrib/pprint | |
| parent | 74c5bf10a5e92c2f2ee83d09eb15938914f95fbe (diff) | |
Remove the translation of (meta x) to ^x in code dispatch, since the ^x form is being deprecated in 1.1
Diffstat (limited to 'src/clojure/contrib/pprint')
| -rw-r--r-- | src/clojure/contrib/pprint/dispatch.clj | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/clojure/contrib/pprint/dispatch.clj b/src/clojure/contrib/pprint/dispatch.clj index a473dbc3..82db8746 100644 --- a/src/clojure/contrib/pprint/dispatch.clj +++ b/src/clojure/contrib/pprint/dispatch.clj @@ -1,4 +1,4 @@ -;;; dispatch.clj -- part of the pretty printer for Clojure +;; dispatch.clj -- part of the pretty printer for Clojure ;; by Tom Faulhaber ;; April 3, 2009 @@ -42,8 +42,9 @@ ;;; :keyword, \char, or ""). The notable exception is #() which is special-cased. (def reader-macros - {'quote "'", 'clojure.core/meta "^", 'clojure.core/deref "@", + {'quote "'", 'clojure.core/deref "@", 'var "#'", 'clojure.core/unquote "~"}) + (defn pprint-reader-macro [alis] (let [#^String macro-char (reader-macros (first alis))] (when (and macro-char (= 2 (count alis))) |