17 lines
502 B
Factor
17 lines
502 B
Factor
! Copyright (C) 2007, 2008 Slava Pestov, Eduardo Cavazos.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors assocs kernel locals.types macros.expander ;
|
|
IN: locals.macros
|
|
|
|
M: lambda expand-macros clone [ expand-macros ] change-body ;
|
|
|
|
M: lambda expand-macros* expand-macros literal ;
|
|
|
|
M: binding-form expand-macros
|
|
clone
|
|
[ [ expand-macros ] assoc-map ] change-bindings
|
|
[ expand-macros ] change-body ;
|
|
|
|
M: binding-form expand-macros* expand-macros literal ;
|
|
|