restore-conversation ( seq -- )

Vocabulary

furnace.conversations

Inputs

seq

an object

Outputs

None

Definition

USING: accessors assocs kernel namespaces sequences ;

IN: furnace.conversations

: restore-conversation ( seq -- )
    conversation get [
        namespace>>
        [ '[ _ key? ] filter ] [ '[ [ _ at ] keep set ] each ]
        bi
    ] [ drop ] if* ;