the fixed bytes: magic, version, header, payload, chunk, full, tail
171def checkpointEnvelopeFixed =
172 (lambda unrestricted contract : (family CheckpointEnvelopeContract) .
173 (bytes-append checkpointEnvelopeMagic
174 (bytes-append (checkpointEnvelopeWord checkpointEnvelopeVersion)
175 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeHeaderBytes contract))
176 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeContractPayload contract))
177 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeContractChunk contract))
178 (bytes-append (checkpointEnvelopeWord (checkpointEnvelopeFullChunks contract))
179 (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.