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. _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org https://lists.nongnu.org/mailman/listinfo/chicken-users
