expand-alias ( obj -- obj' )

Vocabulary

literals.private

Inputs

obj

an object

Outputs

obj'

an object

Definition

USING: accessors kernel sequences words.alias ;

IN: literals.private

: expand-alias ( obj -- obj' )
    dup alias? [ def>> first expand-alias ] when ;