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))