basis/macros/macros.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: parser kernel sequences words effects combinators assocs
   4 definitions quotations namespaces memoize accessors ;
   5 IN: macros
   6
   7 : real-macro-effect ( word -- effect' )
   8     "declared-effect" word-prop in>> 1 <effect> ;
   9
  10 : define-macro ( word definition -- )
  11     [ "macro" set-word-prop ]
  12     [ over real-macro-effect memoize-quot [ call ] append define ]
  13     2bi ;
  14
  15 : MACRO: (:) define-macro ; parsing
  16
  17 PREDICATE: macro < word "macro" word-prop >boolean ;
  18
  19 M: macro definer drop \ MACRO: \ ; ;
  20
  21 M: macro definition "macro" word-prop ;
  22
  23 M: macro reset-word
  24     [ call-next-method ] [ f "macro" set-word-prop ] bi ;