# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1401668429 25200
# Node ID be224817a14bc2af303b0853580a4f2385d5d8dd
# Parent  03a07e540b9fa0ddc2ce04cff046fe946f67254e
Fix fold on ast nodes so that all nodes get visited

diff -r 03a07e540b9f -r be224817a14b modules/ast.tp
--- 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
 					}
 				}
 			}