2009-03-23 19:25:18 -04:00
|
|
|
! Copyright (C) 2007, 2009 Slava Pestov, Eduardo Cavazos.
|
2008-12-06 05:57:38 -05:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-03-23 19:25:18 -04:00
|
|
|
USING: accessors assocs kernel locals.types macros.expander fry ;
|
2008-12-06 05:57:38 -05:00
|
|
|
IN: locals.macros
|
|
|
|
|
|
|
|
M: lambda expand-macros clone [ expand-macros ] change-body ;
|
|
|
|
|
|
|
|
M: lambda expand-macros* expand-macros literal ;
|
|
|
|
|
2009-10-27 15:19:05 -04:00
|
|
|
M: let expand-macros
|
|
|
|
clone [ expand-macros ] change-body ;
|
2008-12-06 05:57:38 -05:00
|
|
|
|
2009-10-27 15:19:05 -04:00
|
|
|
M: let expand-macros* expand-macros literal ;
|
2008-12-06 05:57:38 -05:00
|
|
|
|
2009-03-23 19:25:18 -04:00
|
|
|
M: lambda condomize? drop t ;
|
|
|
|
|
2009-11-07 14:32:08 -05:00
|
|
|
M: lambda condomize [ call ] curry ;
|