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
\r
7 PREDICATE: alias < word "alias" word-prop ;
\r
9 : define-alias ( new old -- )
\r
10 [ [ 1quotation ] [ stack-effect ] bi define-inline ]
\r
11 [ drop t "alias" set-word-prop ] 2bi ;
\r
13 : ALIAS: CREATE-WORD scan-word define-alias ; parsing
\r
16 [ call-next-method ] [ f "alias" set-word-prop ] bi ;
\r
18 M: alias stack-effect
\r
19 def>> first stack-effect ;
\r