mark-composes ( quot -- quot' )

Vocabulary

fry.private

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: kernel quotations sequences ;

IN: fry.private

: mark-composes ( quot -- quot' )
    [
        dup \ @ =
        [ drop [ POSTPONE: _ POSTPONE: @ ] ] [ 1quotation ] if
    ] map concat ; inline