1497def scaleNaturalLiteral =
1498 (lambda unrestricted radix : (family IntegerLiteralRadix) .
1499 (lambda unrestricted value : Nat .
1500 (eliminate
1501 IntegerLiteralRadix
1502 (lambda unrestricted current : (family IntegerLiteralRadix) . Nat)
1503 radix
1504 (branch IntegerLiteralDecimal . (advanceDecimal value zero))
1505 (branch IntegerLiteralBinary . (naturalDouble value))
1506 (branch IntegerLiteralHexadecimal . (naturalDouble (naturalOctuple 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.