What the hell does write-line do?
I used this script:
#! /usr/local/bin/csi -s
(define (write-line* line)
(display line)
(newline))
(if (not (null? (command-line-arguments)))
(set! write-line write-line*))
(let next-line ((line (read-line)))
(if (not (eof-object? line))
(begin
(write-line line)
(next-line (read-line)))))
The build in write-line:
$ dd if=/dev/zero bs=1M count=100 | od -xv | cat.scm > /dev/null
100+0 records in
100+0 records out
104857600 bytes (105 MB) copied, 18.7047 s, 5.6 MB/s
The self written version:
$ dd if=/dev/zero bs=1M count=100 | od -xv | cat.scm 1 > /dev/null
100+0 records in
100+0 records out
104857600 bytes (105 MB) copied, 13.3583 s, 7.8 MB/s
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users
