make-old-objects ( -- )

Vocabulary

benchmark.gc2

Inputs

None

Outputs

None

Definition

USING: arrays kernel memory namespaces sequences ;

IN: benchmark.gc2

: make-old-objects ( -- )
    1000000 [ 1 f <array> ] replicate oldies set gc oldies get
    [ "HI" swap set-first ] each ;