rewrite-path ( path quot: ( obj -- obj' ) -- )

Vocabulary

modern.out

Inputs

path	an object
quot	a quotation with stack effect ( obj -- obj' )

Outputs

None

Definition

USING: continuations kernel modern prettyprint ;

IN: modern.out

: rewrite-path ( path quot: ( obj -- obj' ) -- )
    [ [ path>literals ] ] dip [ map-literals ] curry compose
    [ [ ] bi write-modern-path ] curry [ drop . ] recover ;
    inline recursive