Re: [Chicken-users] ftl egg

[Thomas Christian Chust]

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