core/locals/macros/macros.factor

   1 ! Copyright (C) 2007, 2009 Slava Pestov, Eduardo Cavazos.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors 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: let expand-macros
  11     clone [ expand-macros ] change-body ;
  12
  13 M: let expand-macros* expand-macros literal ;
  14
  15 M: lambda condomize? drop t ;
  16
  17 M: lambda condomize [ call ] curry ;