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