Welcome to the CHICKEN Scheme pasting service

referenced but unbound pasted by GeoffSK on Sat Oct 27 11:12:28 2012

(module f
  (*)
  (import scheme)
  (import chicken)
  (import (only vector-lib vector-index))
  (import 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)))
 
  ) ;; end-module
[ permalink | raw ]

imports added by certainty on Sat Oct 27 11:16:49 2012

(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)))
 
  )
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the R5RS procedure to access the second element of a pair?
Visually impaired? Let me spell it for you (wav file) download WAV