sum-values ( values -- sum )

Vocabulary

compiler.cfg.register-allocation.spill-sites.fixtures

Inputs

values

an object

Outputs

sum

an object

Definition

USING: compiler.cfg.instructions sequences ;

IN: compiler.cfg.register-allocation.spill-sites.fixtures

:: sum-values ( values -- sum )
    values first :> sum! values rest [| value |
        fresh-int :> next next sum value ##add, next sum!
    ] each sum ;