common-memory-facts ( sets -- facts )

Vocabulary

compiler.cfg.memory-optimization.private

Inputs

sets

an object

Outputs

facts

an object

Definition

USING: assocs kernel sequences ;

IN: compiler.cfg.memory-optimization.private

:: common-memory-facts ( sets -- facts )
    H{ } clone :> facts sets empty?
    [ ] [
        sets first [| key value |
            sets rest [ key swap at value = ] all?
            [ value key facts set-at ] when
        ] assoc-each
    ] if facts ;