19 lines
528 B
Factor
19 lines
528 B
Factor
|
! 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
|