basis/locals/macros/macros.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors assocs kernel locals.types macros.expander ;
   4 IN: locals.macros
   5
   6 M: lambda expand-macros clone [ expand-macros ] change-body ;
   7
   8 M: lambda expand-macros* expand-macros literal ;
   9
  10 M: binding-form expand-macros
  11     clone
  12         [ [ expand-macros ] assoc-map ] change-bindings
  13         [ expand-macros ] change-body ;
  14
  15 M: binding-form expand-macros* expand-macros literal ;
  16