basis/alias/alias.factor

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