[Chicken-users] git rm write-line?

[Sascha Ziemann]

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