alias

Vocabulary

words.alias

Definition

USING: words ;

IN: words.alias

PREDICATE: alias < word "alias" word-prop ;

Methods

USING: definitions kernel words.alias ;

M: alias definer drop \ ALIAS: f ;


USING: kernel see words.alias ;

M: alias print-stack-effect? drop f ;


USING: generic kernel words words.alias ;

M: alias reset-word
    [ M\ alias reset-word (call-next-method) ]
    [ "alias" remove-word-prop ] bi ;


USING: combinators effects io.streams.string namespaces
prettyprint prettyprint.backend prettyprint.config see
see.private summary words.alias ;

M: alias summary
    [
        0 margin set 1 line-limit set [
            {
                [ seeing-word ]
                [ definer. ]
                [ pprint-word ]
                [ stack-effect pprint-effect ]
            } cleave
        ] with-in
    ] with-string-writer ;


USING: accessors arrays help help.markup make sequences
words.alias ;

M: alias word-help*
    [
        \ $description , "An alias for " , def>> first <$link> ,
        "." ,
    ] { } make 1array ;