Mercurial > repos > tabletprog
diff modules/ast.tp @ 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 | 004946743678 |
children | 98147071baf6 |
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 } } }