the fixed bytes: magic, version, header, payload, chunk, full, tail
164def checkpointEnvelopeFixed =
165 (lambda unrestricted contract : (family CheckpointEnvelopeContract) .
166 (bytes-append checkpointEnvelopeMagic
167 (bytes-append (checkpointEnvelopeWord checkpointEnvelopeVersion)
168 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeHeaderBytes contract))
169 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeContractPayload contract))
170 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeContractChunk contract))
171 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeFullChunks contract))
172 (checkpointEnvelopeWord (checkpointEnvelopeTailBytes contract)))))))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.