core/words/alias/alias.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors definitions effects kernel quotations
   4 sequences words ;
   5 IN: words.alias
   6
   7 PREDICATE: alias < word "alias" word-prop ;
   8
   9 : define-alias ( new old -- )
  10     [ [ 1quotation ] [ stack-effect ] bi define-inline ]
  11     [ drop t "alias" set-word-prop ] 2bi ;
  12
  13 M: alias reset-word
  14     [ call-next-method ] [ f "alias" set-word-prop ] bi ;
  15
  16 M: alias definer drop \ ALIAS: f ;
  17
  18 M: alias definition def>> first 1quotation ;