adjust `define-record-type` expansion

[mflatt]

The Racket compilers recognizes a particular pattern of make-struct-type, and while there's some flexibility in what the compiler recognizes, the expansion here was not within reach. This commit Adjust the expansion to fit an expected pattern, which signficantly improves the performance of record operations.