+ @Override
+ public void visit(EBinary expression) {
+ expression.left.accept(this);
+ for(EBinaryRightSide right : expression.rights)
+ right.right.accept(this);
+ }
+
+ @Override
+ public void visit(EBlock expression) {
+ for(Statement stat : expression.statements)
+ stat.accept(this);
+ }
+
+ @Override
+ public void visit(EPreLet expression) {
+ for(LetStatement stat : expression.assignments) {
+ stat.pattern.accept(this);
+ stat.value.accept(this);
+ }
+ expression.in.accept(this);
+ }
+
+ @Override
+ public void visit(ERange expression) {
+ expression.from.accept(this);
+ expression.to.accept(this);
+ }
+
+ @Override
+ public void visit(ERecord expression) {
+ for(FieldAssignment assignment : expression.fields)
+ assignment.value.accept(this);
+
+ }
+
+ @Override
+ public void visit(EStringLiteral expression) {
+ for(Expression exp : expression.expressions)
+ exp.accept(this);
+ }
+
+ @Override
+ public void visit(BindStatement statement) {
+ statement.pattern.accept(this);
+ statement.value.accept(this);
+ }
+
+ @Override
+ public void visit(GuardStatement statement) {
+ statement.value.accept(this);
+ }
+
+ @Override
+ public void visit(LetStatement statement) {
+ statement.value.accept(this);
+ }
+
+ @Override
+ public void visit(RuleStatement statement) {
+ statement.head.accept(this);
+ statement.body.accept(this);
+ }
+