core/words/alias/alias.factor

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