7 lines
165 B
Plaintext
7 lines
165 B
Plaintext
(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)
|
|
|