Mercurial > repos > tabletprog
changeset 257:be224817a14b
Fix fold on ast nodes so that all nodes get visited
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 01 Jun 2014 17:20:29 -0700 |
parents | 03a07e540b9f |
children | 074f885596ed |
files | modules/ast.tp |
diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/modules/ast.tp Sun Jun 01 00:14:36 2014 -0700 +++ b/modules/ast.tp Sun Jun 01 17:20:29 2014 -0700 @@ -157,7 +157,7 @@ fold:with <- :acc :fun { acc <- fun: acc self _args fold: acc with: :acc el { - fun: acc el + el fold: acc with: fun } } } @@ -179,7 +179,7 @@ fold:with <- :acc :fun { acc <- fun: acc self messages fold: acc with: :acc el { - fun: acc el + el fold: acc with: fun } } } @@ -202,7 +202,7 @@ fold:with <- :acc :fun { acc <- fun: acc self els fold: acc with: :acc el { - fun: acc el + el fold: acc with: fun } } } @@ -221,8 +221,8 @@ } fold:with <- :acc :fun { acc <- fun: acc self - acc <- fun: acc _sym - fun: acc _expr + acc <- _sym fold: acc with: fun + _expr fold: acc with: fun } } } @@ -248,7 +248,7 @@ fold:with <- :acc :fun { acc <- fun: acc self expressions fold: acc with: :acc el { - fun: acc el + el fold: acc with: fun } } }