diff options
| -rw-r--r-- | src/clojure/contrib/pprint/dispatch.clj | 5 | ||||
| -rw-r--r-- | src/clojure/contrib/test_contrib/pprint/pretty.clj | 5 |
2 files changed, 3 insertions, 7 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))) diff --git a/src/clojure/contrib/test_contrib/pprint/pretty.clj b/src/clojure/contrib/test_contrib/pprint/pretty.clj index f51b172f..01e7c87e 100644 --- a/src/clojure/contrib/test_contrib/pprint/pretty.clj +++ b/src/clojure/contrib/test_contrib/pprint/pretty.clj @@ -116,11 +116,6 @@ Usage: *hello* "(map #(first %) [[1 2 3] [4 5 6] [7]])" (with-pprint-dispatch *code-dispatch* - (write (read-string "^#'first") - :stream nil)) - "^#'first" - - (with-pprint-dispatch *code-dispatch* (write (read-string "@@(ref (ref 1))") :stream nil)) "@@(ref (ref 1))" |