2016-07-23 22:40:37 +00:00
|
|
|
(define (unspecific) (if #f #f))
|
2016-07-23 22:14:40 +00: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)
|
