1 USING: words quotations kernel effects sequences parser ;
\r
4 PREDICATE: alias < word "alias" word-prop ;
\r
7 [ call-next-method ] [ f "alias" set-word-prop ] bi ;
\r
9 M: alias stack-effect
\r
10 def>> first stack-effect ;
\r
12 : define-alias ( new old -- )
\r
13 [ 1quotation define-inline ]
\r
14 [ drop t "alias" set-word-prop ] 2bi ;
\r
16 : ALIAS: CREATE-WORD scan-word define-alias ; parsing
\r