Re: [Chicken-users] git rm write-line?

[Christian Kellermann]

* Sascha Ziemann <address@hidden> [110921 10:33]:
> 2011/9/21 Christian Kellermann <address@hidden>:
> > On a second thought, here is what write-line does:
> >
> > (define write-line
> >  (lambda (str . port)
> >    (let ((p (if (##core#inline "C_eqp" port '())
> >                 ##sys#standard-output
> >                 (##sys#slot port 0) ) ) )
> >      (##sys#check-port p 'write-line)
> >      (##sys#check-string str 'write-line)
> >      (display str p)
> >      (newline p) ) ) )
> >
> 
> Ah I see. write-line is only a quick hack. I thought it would do
> something fast like fwrite.

Well, now the choice is manyfold. One can whine about the slowness
or improve the current situation or something completely different
like shopping...

I prefer improvement.

Either way thanks for the nice test case, let's see if we can speed
up thing in a way that makes it nicer. I am not sure why we check
the string here, or why we check the port for being a port, since
display will do it all over again.

Can someone enlighten me on this?

Kind regards,

Christian

-- 
Who can (make) the muddy water (clear)? Let it be still, and it will
gradually become clear. Who can secure the condition of rest? Let
movement go on, and the condition of rest will gradually arise.
 -- Lao Tse.