2016-07-23 23:40:37 +01:00
|
|
|
(define (unspecific) (if #f #f))
|
2016-07-23 23:14:40 +01:00
|
|
|
(define make-record make-vector)
|
|
|
|
(define record-set! vector-set!)
|
|
|
|
(define record? vector?)
|
|
|
|
(define (record-type x) (vector-ref x 0))
|
|
|
|
(define record-ref vector-ref)
|