* Sascha Ziemann <cev...@gmail.com> [110921 10:33]: > 2011/9/21 Christian Kellermann <ck...@pestilenz.org>: > > 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. _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org https://lists.nongnu.org/mailman/listinfo/chicken-users