gambiteer

(declare
  (standard-bindings)
  (extended-bindings)
  (block)
  (not inline) ;; inlining distorts what I want to measure
  (safe)       ;; default declaration, made explicit
  )

(import (srfi 231))

gambiteer

(declare (standard-bindings)(extended-bindings)(block)(fixnum)(not safe))

;;; From Text-File Databases at https://sites.google.com/site/schemephil/

;;; READ-CSV-RECORD [SEP] [PORT]

(define (read-csv-record . args)
  
    (define (add-char-to-field c field)
      (let ((length  (field-length field))