Thomas Christian Chust wrote:
> [...]
> Additionally I suggest the following handy output and accumulator
> interfaces:
>
> ;;; A string output collector.
> (define o=string
> (o-interface
> ;; create
> (lambda (#!optional dst)
> (or dst ""))
> ;; write
> (lambda (obj out)
> (conc out obj))
> ;; result
> identity))
> [...]
Maybe it's better to define it like this:
;;; A string output collector.
(define o=string
(o-interface
;; create
(lambda (#!optional dst)
(or dst (open-output-string)))
;; write
(lambda (obj out)
(display obj out)
out)
;; result
get-output-string))
cu,
Thomas
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
