1 ! Copyright (C) 2008 Slava Pestov.
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
3 USING: accessors words quotations kernel effects sequences parser ;
\r
6 PREDICATE: alias < word "alias" word-prop ;
\r
9 [ call-next-method ] [ f "alias" set-word-prop ] bi ;
\r
11 M: alias stack-effect
\r
12 def>> first stack-effect ;
\r
14 : define-alias ( new old -- )
\r
15 [ 1quotation define-inline ]
\r
16 [ drop t "alias" set-word-prop ] 2bi ;
\r
18 : ALIAS: CREATE-WORD scan-word define-alias ; parsing
\r