re: help to get this running faster

[Brad Knotwell]

Hello--

It's not exactly the same script, but I think it does pretty much the same 
thing (I changed from a set of nested lists (???) to a single list).

On my machine, it's an order of magnitude faster than the previous
script.

--Brad

(define-module (alto tabreader))

(export load-records)

(use-modules (ice-9 optargs))
(use-modules (ice-9 string-fun)

(define* (load-records fname #&optional (sep #\tab))
  (call-with-input-file fname
    (lambda (i-stream)
      (do ((records '())
           (line (read-line i-stream) (read-line i-stream)))
          ((eof-object? line) records)
        (set! records (append records (list (split-discarding-char sep line 
list))))))))

;; (load-records "/tmp/h")