233def sm86RegisterNatural =
234 (lambda unrestricted register : (family SM86Register) .
235 (eliminate
236 SM86Register
237 (lambda unrestricted current : (family SM86Register) . Nat)
238 register
239 (branch SM86RegisterValue value . (byte-to-nat value))))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.