Re: Adapting a functional pretty-printer to Clojure

[[EMAIL PROTECTED]]

On Nov 18, 1:20 pm, "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> wrote:

> Thanks for the advice. I think this works for show-list-children:
>
> (defn insert-line [x y]
>   (doc-concat x (doc-concat (doc-line) y)))
>
> (defn show-list-children [x]
>   (cond (empty? x)
>         (doc-nil)
>         (= (count x) 1)
>         (show (first x))
>         true
>         (reduce insert-line (map show x))))

or maybe
(defn show-list-children [x]
  (if (empty? x)
    (doc-nil)
    (reduce insert-line (map show x))))

:-p

-- Steve
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"Clojure" group.
To post to this group, send email to clojure@googlegroups.com
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
-~----------~----~----~----~------~----~------~--~---