Mercurial > repos > tabletprog

changeset 257:be224817a14b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
 					}
 				}
 			}