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? ] curry filter ]
        [ [ at ] curry [ keep set ] curry each ] bi
    ] [ drop ] if* ;