! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors words quotations kernel effects sequences parser ;
IN: alias

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

M: alias reset-word
    [ call-next-method ] [ f "alias" set-word-prop ] bi ;

M: alias stack-effect
    def>> first stack-effect ;

: define-alias ( new old -- )
    [ 1quotation define-inline ]
    [ drop t "alias" set-word-prop ] 2bi ;

: ALIAS: CREATE-WORD scan-word define-alias ; parsing