extra/alias/alias.factor

   1 USING: words quotations kernel effects sequences parser ;\r
   2 IN: alias\r
   3 \r
   4 PREDICATE: alias < word "alias" word-prop ;\r
   5 \r
   6 M: alias reset-word\r
   7     [ call-next-method ] [ f "alias" set-word-prop ] bi ;\r
   8 \r
   9 M: alias stack-effect\r
  10     word-def first stack-effect ;\r
  11 \r
  12 : define-alias ( new old -- )\r
  13     [ 1quotation define-inline ]\r
  14     [ drop t "alias" set-word-prop ] 2bi ;\r
  15 \r
  16 : ALIAS: CREATE-WORD scan-word define-alias ; parsing\r