flatten ( quot -- expanded )

Vocabulary

inverse

Inputs

quot

an object

Outputs

expanded

an object

Definition

USING: accessors kernel namespaces quotations sequences ;

IN: inverse

: flatten ( quot -- expanded )
    visited get over suffix visited [
        [
            dup flattenable? [
                def>> [
                    visited get member-eq?
                    [ no-recursive-inverse ] when
                ] [ flatten ] bi
            ] [ 1quotation ] if
        ] map concat
    ] with-variable ;