compute-assoc-fixups ( continuation name assoc -- seq )

Vocabulary

fixups

Inputs

continuation	an object
name	an object
assoc	an object

Outputs

seq

an object

Definition

USING: assocs continuations kernel sequences ;

IN: fixups

: compute-assoc-fixups ( continuation name assoc -- seq )
    swap [ = ] curry filter-keys
    [ drop { } ] [
        swap [
            [
                first2 dupd first2 " in Factor " glue
                " renamed to " glue "Fixup: " prepend swap drop
                no-op-restart
            ]
        ] dip [ <restart> ] curry compose map
    ] if-empty ;