17 lines
427 B
Factor
17 lines
427 B
Factor
|
USING: 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
|
||
|
|
word-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
|