diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/place.tl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index ac403ccb..3ee0ea8c 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -135,12 +135,13 @@ ^(let ,(zip syms (repeat '((gensym)))) ,*body)) (defun sys:propagate-ancestor (to-tree from-form . syms) - (tree-case to-tree - ((a . d) - (when (memq a syms) - (sys:set-macro-ancestor to-tree from-form)) - (sys:propagate-ancestor a from-form . syms) - (sys:propagate-ancestor d from-form . syms))) + (unless (macro-ancestor to-tree) + (tree-case to-tree + ((a . d) + (when (memq a syms) + (sys:set-macro-ancestor to-tree from-form)) + (sys:propagate-ancestor a from-form . syms) + (sys:propagate-ancestor d from-form . syms)))) to-tree) (defun call-update-expander (getter setter unex-place env body) |