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

Vocabulary

modern.out

Inputs

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

Outputs

None

Definition

USING: kernel modern ;

IN: modern.out

: rewrite-vocab ( vocab quot: ( obj -- obj' ) -- )
    [ [ vocab>literals ] dip map-literals ] keepd
    write-modern-vocab ; inline recursive