emit-singletons ( -- )

Vocabulary

bootstrap.image.private

Inputs

None

Outputs

None

Definition

USING: assocs kernel.private math namespaces ;

IN: bootstrap.image.private

: emit-singletons ( -- )
    t OBJ-CANONICAL-TRUE special-objects get set-at
    0 >bignum OBJ-BIGNUM-ZERO special-objects get set-at
    1 >bignum OBJ-BIGNUM-POS-ONE special-objects get set-at
    -1 >bignum OBJ-BIGNUM-NEG-ONE special-objects get set-at ;