point-free ( quot -- newquot )

Vocabulary

locals.rewrite

Inputs

quot

an object

Outputs

newquot

an object

Definition

USING: kernel make sequences ;

IN: locals.rewrite

: point-free ( quot -- newquot )
    [ { } swap [ localize % ] each drop-locals-quot ] [ ] make ;