(module f (*) (import scheme) (import chicken) (require-library srfi-42 srfi-69 vector-lib) (import (only vector-lib vector-index) srfi-42 srfi-69) (define-record frame data ; vector of vectors names ; vector of names of each column results ; vector of hashtable of statistics ) (define (new-frame) (make-frame (vector) (vector) (vector))) (define (get-col-index df col-ref) (vector-index (lambda (x) (equal? col-ref x)) (frame-names df))) )