af8a98c8516abcbb5859828fa210e3bf0649ea59
[mes.git] / lib / record.mes
1 (define make-record make-vector)
2 (define record-set! vector-set!)
3 (define record? vector?)
4 (define (record-type x) (vector-ref x 0))
5 (define record-ref vector-ref)
6