diff options
Diffstat (limited to 'src/clojure/contrib/pprint/utilities.clj')
| -rw-r--r-- | src/clojure/contrib/pprint/utilities.clj | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/clojure/contrib/pprint/utilities.clj b/src/clojure/contrib/pprint/utilities.clj index 6d5cee91..128c66e5 100644 --- a/src/clojure/contrib/pprint/utilities.clj +++ b/src/clojure/contrib/pprint/utilities.clj @@ -1,3 +1,8 @@ +;;; utilities.clj -- part of the pretty printer for Clojure + +;; by Tom Faulhaber +;; April 3, 2009 + ; Copyright (c) Tom Faulhaber, Jan 2009. All rights reserved. ; The use and distribution terms for this software are covered by the ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) @@ -6,6 +11,10 @@ ; the terms of this license. ; You must not remove this notice, or any other, from this software. +;; This module implements some utility function used in formatting and pretty +;; printing. The functions here could go in a more general purpose library, +;; perhaps. + (ns clojure.contrib.pprint.utilities) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -91,5 +100,5 @@ beginning of aseq" (defmacro prlabel [prefix arg & more-args] "Print args to *err* in name = value format" `(prerr ~@(cons (list 'quote prefix) (mapcat #(list (list 'quote %) "=" %) - (cons arg more-args))))) + (cons arg (seq more-args)))))) |