prism 2.0.0.rc2 → 2.0.0

data/src/node.c

@@ -51,8 +51,8 @@ pm_node_list_grow(pm_arena_t *arena, pm_node_list_t *list, size_t size) {
 }
 
 /**
- * Slow path for pm_node_list_append: grow the list and append the node.
- * Do not call directly - use pm_node_list_append instead.
+ * Slow path for pm_node_list_append_inline: grow the list and append the node.
+ * Do not call directly - use pm_node_list_append_inline instead.
  */
 void
 pm_node_list_append_slow(pm_arena_t *arena, pm_node_list_t *list, pm_node_t *node) {
@@ -60,6 +60,14 @@ pm_node_list_append_slow(pm_arena_t *arena, pm_node_list_t *list, pm_node_t *nod
     list->nodes[list->size++] = node;
 }
 
+/**
+ * Append a new node onto the end of the node list.
+ */
+void
+pm_node_list_append(pm_arena_t *arena, pm_node_list_t *list, pm_node_t *node) {
+    pm_node_list_append_inline(arena, list, node);
+}
+
 /**
  * Prepend a new node onto the beginning of the node list.
  */
@@ -400,33 +408,35 @@ pm_node_type(pm_node_type_t node_type)
 
 /**
  * Visit each of the nodes in this subtree using the given visitor callback. The
- * callback function will be called for each node in the subtree. If it returns
- * false, then that node's children will not be visited. If it returns true,
- * then the children will be visited. The data parameter is treated as an opaque
- * pointer and is passed to the visitor callback for consumers to use as they
- * see fit.
+ * callback function will be called for each node in the subtree, and its
+ * return value determines whether the walk visits that node's children, skips
+ * them, or stops entirely. The data parameter is treated as an opaque pointer
+ * and is passed to the visitor callback for consumers to use as they see fit.
  */
-void
-pm_visit_node(const pm_node_t *node, bool (*visitor)(const pm_node_t *node, void *data), void *data) {
-    if (visitor(node, data)) pm_visit_child_nodes(node, visitor, data);
+bool
+pm_visit_node(const pm_node_t *node, pm_visit_callback_t visitor, void *data) {
+    pm_visit_result_t result = visitor(node, data);
+    if (result == PM_VISIT_DESCEND) return pm_visit_child_nodes(node, visitor, data);
+    return result != PM_VISIT_STOP;
 }
 
 /**
  * Visit the children of the given node with the given callback. This is the
  * default behavior for walking the tree that is called from pm_visit_node if
- * the callback returns true.
+ * the callback returns PM_VISIT_DESCEND. A stop from any child returns false
+ * immediately, so that it propagates up through every enclosing call.
  */
-void
-pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *node, void *data), void *data) {
+bool
+pm_visit_child_nodes(const pm_node_t *node, pm_visit_callback_t visitor, void *data) {
     switch (PM_NODE_TYPE(node)) {
         case PM_ALIAS_GLOBAL_VARIABLE_NODE: {
             const pm_alias_global_variable_node_t *cast = (const pm_alias_global_variable_node_t *) node;
 
             // Visit the new_name field
-            pm_visit_node((const pm_node_t *) cast->new_name, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->new_name, visitor, data)) return false;
 
             // Visit the old_name field
-            pm_visit_node((const pm_node_t *) cast->old_name, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->old_name, visitor, data)) return false;
 
             break;
         }
@@ -434,10 +444,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_alias_method_node_t *cast = (const pm_alias_method_node_t *) node;
 
             // Visit the new_name field
-            pm_visit_node((const pm_node_t *) cast->new_name, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->new_name, visitor, data)) return false;
 
             // Visit the old_name field
-            pm_visit_node((const pm_node_t *) cast->old_name, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->old_name, visitor, data)) return false;
 
             break;
         }
@@ -445,10 +455,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_alternation_pattern_node_t *cast = (const pm_alternation_pattern_node_t *) node;
 
             // Visit the left field
-            pm_visit_node((const pm_node_t *) cast->left, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->left, visitor, data)) return false;
 
             // Visit the right field
-            pm_visit_node((const pm_node_t *) cast->right, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->right, visitor, data)) return false;
 
             break;
         }
@@ -456,10 +466,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_and_node_t *cast = (const pm_and_node_t *) node;
 
             // Visit the left field
-            pm_visit_node((const pm_node_t *) cast->left, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->left, visitor, data)) return false;
 
             // Visit the right field
-            pm_visit_node((const pm_node_t *) cast->right, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->right, visitor, data)) return false;
 
             break;
         }
@@ -469,7 +479,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the arguments field
             const pm_node_list_t *arguments = &cast->arguments;
             for (size_t index = 0; index < arguments->size; index++) {
-                pm_visit_node(arguments->nodes[index], visitor, data);
+                if (!pm_visit_node(arguments->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -480,7 +490,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the elements field
             const pm_node_list_t *elements = &cast->elements;
             for (size_t index = 0; index < elements->size; index++) {
-                pm_visit_node(elements->nodes[index], visitor, data);
+                if (!pm_visit_node(elements->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -489,25 +499,21 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_array_pattern_node_t *cast = (const pm_array_pattern_node_t *) node;
 
             // Visit the constant field
-            if (cast->constant != NULL) {
-                pm_visit_node((const pm_node_t *) cast->constant, visitor, data);
-            }
+            if (cast->constant != NULL && !pm_visit_node((const pm_node_t *) cast->constant, visitor, data)) return false;
 
             // Visit the requireds field
             const pm_node_list_t *requireds = &cast->requireds;
             for (size_t index = 0; index < requireds->size; index++) {
-                pm_visit_node(requireds->nodes[index], visitor, data);
+                if (!pm_visit_node(requireds->nodes[index], visitor, data)) return false;
             }
 
             // Visit the rest field
-            if (cast->rest != NULL) {
-                pm_visit_node((const pm_node_t *) cast->rest, visitor, data);
-            }
+            if (cast->rest != NULL && !pm_visit_node((const pm_node_t *) cast->rest, visitor, data)) return false;
 
             // Visit the posts field
             const pm_node_list_t *posts = &cast->posts;
             for (size_t index = 0; index < posts->size; index++) {
-                pm_visit_node(posts->nodes[index], visitor, data);
+                if (!pm_visit_node(posts->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -516,10 +522,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_assoc_node_t *cast = (const pm_assoc_node_t *) node;
 
             // Visit the key field
-            pm_visit_node((const pm_node_t *) cast->key, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->key, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -527,9 +533,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_assoc_splat_node_t *cast = (const pm_assoc_splat_node_t *) node;
 
             // Visit the value field
-            if (cast->value != NULL) {
-                pm_visit_node((const pm_node_t *) cast->value, visitor, data);
-            }
+            if (cast->value != NULL && !pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -539,24 +543,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_begin_node_t *cast = (const pm_begin_node_t *) node;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             // Visit the rescue_clause field
-            if (cast->rescue_clause != NULL) {
-                pm_visit_node((const pm_node_t *) cast->rescue_clause, visitor, data);
-            }
+            if (cast->rescue_clause != NULL && !pm_visit_node((const pm_node_t *) cast->rescue_clause, visitor, data)) return false;
 
             // Visit the else_clause field
-            if (cast->else_clause != NULL) {
-                pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data);
-            }
+            if (cast->else_clause != NULL && !pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data)) return false;
 
             // Visit the ensure_clause field
-            if (cast->ensure_clause != NULL) {
-                pm_visit_node((const pm_node_t *) cast->ensure_clause, visitor, data);
-            }
+            if (cast->ensure_clause != NULL && !pm_visit_node((const pm_node_t *) cast->ensure_clause, visitor, data)) return false;
 
             break;
         }
@@ -564,9 +560,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_block_argument_node_t *cast = (const pm_block_argument_node_t *) node;
 
             // Visit the expression field
-            if (cast->expression != NULL) {
-                pm_visit_node((const pm_node_t *) cast->expression, visitor, data);
-            }
+            if (cast->expression != NULL && !pm_visit_node((const pm_node_t *) cast->expression, visitor, data)) return false;
 
             break;
         }
@@ -576,14 +570,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_block_node_t *cast = (const pm_block_node_t *) node;
 
             // Visit the parameters field
-            if (cast->parameters != NULL) {
-                pm_visit_node((const pm_node_t *) cast->parameters, visitor, data);
-            }
+            if (cast->parameters != NULL && !pm_visit_node((const pm_node_t *) cast->parameters, visitor, data)) return false;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -593,14 +583,12 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_block_parameters_node_t *cast = (const pm_block_parameters_node_t *) node;
 
             // Visit the parameters field
-            if (cast->parameters != NULL) {
-                pm_visit_node((const pm_node_t *) cast->parameters, visitor, data);
-            }
+            if (cast->parameters != NULL && !pm_visit_node((const pm_node_t *) cast->parameters, visitor, data)) return false;
 
             // Visit the locals field
             const pm_node_list_t *locals = &cast->locals;
             for (size_t index = 0; index < locals->size; index++) {
-                pm_visit_node(locals->nodes[index], visitor, data);
+                if (!pm_visit_node(locals->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -609,9 +597,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_break_node_t *cast = (const pm_break_node_t *) node;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             break;
         }
@@ -619,12 +605,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_call_and_write_node_t *cast = (const pm_call_and_write_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -632,19 +616,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_call_node_t *cast = (const pm_call_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             break;
         }
@@ -652,12 +630,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_call_operator_write_node_t *cast = (const pm_call_operator_write_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -665,12 +641,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_call_or_write_node_t *cast = (const pm_call_or_write_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -678,7 +652,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_call_target_node_t *cast = (const pm_call_target_node_t *) node;
 
             // Visit the receiver field
-            pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             break;
         }
@@ -686,10 +660,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_capture_pattern_node_t *cast = (const pm_capture_pattern_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             // Visit the target field
-            pm_visit_node((const pm_node_t *) cast->target, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->target, visitor, data)) return false;
 
             break;
         }
@@ -697,20 +671,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_case_match_node_t *cast = (const pm_case_match_node_t *) node;
 
             // Visit the predicate field
-            if (cast->predicate != NULL) {
-                pm_visit_node((const pm_node_t *) cast->predicate, visitor, data);
-            }
+            if (cast->predicate != NULL && !pm_visit_node((const pm_node_t *) cast->predicate, visitor, data)) return false;
 
             // Visit the conditions field
             const pm_node_list_t *conditions = &cast->conditions;
             for (size_t index = 0; index < conditions->size; index++) {
-                pm_visit_node(conditions->nodes[index], visitor, data);
+                if (!pm_visit_node(conditions->nodes[index], visitor, data)) return false;
             }
 
             // Visit the else_clause field
-            if (cast->else_clause != NULL) {
-                pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data);
-            }
+            if (cast->else_clause != NULL && !pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data)) return false;
 
             break;
         }
@@ -718,20 +688,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_case_node_t *cast = (const pm_case_node_t *) node;
 
             // Visit the predicate field
-            if (cast->predicate != NULL) {
-                pm_visit_node((const pm_node_t *) cast->predicate, visitor, data);
-            }
+            if (cast->predicate != NULL && !pm_visit_node((const pm_node_t *) cast->predicate, visitor, data)) return false;
 
             // Visit the conditions field
             const pm_node_list_t *conditions = &cast->conditions;
             for (size_t index = 0; index < conditions->size; index++) {
-                pm_visit_node(conditions->nodes[index], visitor, data);
+                if (!pm_visit_node(conditions->nodes[index], visitor, data)) return false;
             }
 
             // Visit the else_clause field
-            if (cast->else_clause != NULL) {
-                pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data);
-            }
+            if (cast->else_clause != NULL && !pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data)) return false;
 
             break;
         }
@@ -739,17 +705,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_class_node_t *cast = (const pm_class_node_t *) node;
 
             // Visit the constant_path field
-            pm_visit_node((const pm_node_t *) cast->constant_path, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->constant_path, visitor, data)) return false;
 
             // Visit the superclass field
-            if (cast->superclass != NULL) {
-                pm_visit_node((const pm_node_t *) cast->superclass, visitor, data);
-            }
+            if (cast->superclass != NULL && !pm_visit_node((const pm_node_t *) cast->superclass, visitor, data)) return false;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -757,7 +719,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_class_variable_and_write_node_t *cast = (const pm_class_variable_and_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -765,7 +727,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_class_variable_operator_write_node_t *cast = (const pm_class_variable_operator_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -773,7 +735,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_class_variable_or_write_node_t *cast = (const pm_class_variable_or_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -785,7 +747,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_class_variable_write_node_t *cast = (const pm_class_variable_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -793,7 +755,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_and_write_node_t *cast = (const pm_constant_and_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -801,7 +763,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_operator_write_node_t *cast = (const pm_constant_operator_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -809,7 +771,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_or_write_node_t *cast = (const pm_constant_or_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -817,10 +779,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_path_and_write_node_t *cast = (const pm_constant_path_and_write_node_t *) node;
 
             // Visit the target field
-            pm_visit_node((const pm_node_t *) cast->target, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->target, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -828,9 +790,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_path_node_t *cast = (const pm_constant_path_node_t *) node;
 
             // Visit the parent field
-            if (cast->parent != NULL) {
-                pm_visit_node((const pm_node_t *) cast->parent, visitor, data);
-            }
+            if (cast->parent != NULL && !pm_visit_node((const pm_node_t *) cast->parent, visitor, data)) return false;
 
             break;
         }
@@ -838,10 +798,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_path_operator_write_node_t *cast = (const pm_constant_path_operator_write_node_t *) node;
 
             // Visit the target field
-            pm_visit_node((const pm_node_t *) cast->target, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->target, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -849,10 +809,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_path_or_write_node_t *cast = (const pm_constant_path_or_write_node_t *) node;
 
             // Visit the target field
-            pm_visit_node((const pm_node_t *) cast->target, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->target, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -860,9 +820,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_path_target_node_t *cast = (const pm_constant_path_target_node_t *) node;
 
             // Visit the parent field
-            if (cast->parent != NULL) {
-                pm_visit_node((const pm_node_t *) cast->parent, visitor, data);
-            }
+            if (cast->parent != NULL && !pm_visit_node((const pm_node_t *) cast->parent, visitor, data)) return false;
 
             break;
         }
@@ -870,10 +828,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_path_write_node_t *cast = (const pm_constant_path_write_node_t *) node;
 
             // Visit the target field
-            pm_visit_node((const pm_node_t *) cast->target, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->target, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -885,7 +843,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_constant_write_node_t *cast = (const pm_constant_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -893,19 +851,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_def_node_t *cast = (const pm_def_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the parameters field
-            if (cast->parameters != NULL) {
-                pm_visit_node((const pm_node_t *) cast->parameters, visitor, data);
-            }
+            if (cast->parameters != NULL && !pm_visit_node((const pm_node_t *) cast->parameters, visitor, data)) return false;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -913,7 +865,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_defined_node_t *cast = (const pm_defined_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -921,9 +873,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_else_node_t *cast = (const pm_else_node_t *) node;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -931,9 +881,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_embedded_statements_node_t *cast = (const pm_embedded_statements_node_t *) node;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -941,7 +889,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_embedded_variable_node_t *cast = (const pm_embedded_variable_node_t *) node;
 
             // Visit the variable field
-            pm_visit_node((const pm_node_t *) cast->variable, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->variable, visitor, data)) return false;
 
             break;
         }
@@ -949,9 +897,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_ensure_node_t *cast = (const pm_ensure_node_t *) node;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -959,9 +905,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_error_recovery_node_t *cast = (const pm_error_recovery_node_t *) node;
 
             // Visit the unexpected field
-            if (cast->unexpected != NULL) {
-                pm_visit_node((const pm_node_t *) cast->unexpected, visitor, data);
-            }
+            if (cast->unexpected != NULL && !pm_visit_node((const pm_node_t *) cast->unexpected, visitor, data)) return false;
 
             break;
         }
@@ -971,21 +915,19 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_find_pattern_node_t *cast = (const pm_find_pattern_node_t *) node;
 
             // Visit the constant field
-            if (cast->constant != NULL) {
-                pm_visit_node((const pm_node_t *) cast->constant, visitor, data);
-            }
+            if (cast->constant != NULL && !pm_visit_node((const pm_node_t *) cast->constant, visitor, data)) return false;
 
             // Visit the left field
-            pm_visit_node((const pm_node_t *) cast->left, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->left, visitor, data)) return false;
 
             // Visit the requireds field
             const pm_node_list_t *requireds = &cast->requireds;
             for (size_t index = 0; index < requireds->size; index++) {
-                pm_visit_node(requireds->nodes[index], visitor, data);
+                if (!pm_visit_node(requireds->nodes[index], visitor, data)) return false;
             }
 
             // Visit the right field
-            pm_visit_node((const pm_node_t *) cast->right, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->right, visitor, data)) return false;
 
             break;
         }
@@ -993,14 +935,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_flip_flop_node_t *cast = (const pm_flip_flop_node_t *) node;
 
             // Visit the left field
-            if (cast->left != NULL) {
-                pm_visit_node((const pm_node_t *) cast->left, visitor, data);
-            }
+            if (cast->left != NULL && !pm_visit_node((const pm_node_t *) cast->left, visitor, data)) return false;
 
             // Visit the right field
-            if (cast->right != NULL) {
-                pm_visit_node((const pm_node_t *) cast->right, visitor, data);
-            }
+            if (cast->right != NULL && !pm_visit_node((const pm_node_t *) cast->right, visitor, data)) return false;
 
             break;
         }
@@ -1010,15 +948,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_for_node_t *cast = (const pm_for_node_t *) node;
 
             // Visit the index field
-            pm_visit_node((const pm_node_t *) cast->index, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->index, visitor, data)) return false;
 
             // Visit the collection field
-            pm_visit_node((const pm_node_t *) cast->collection, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->collection, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1030,9 +966,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_forwarding_super_node_t *cast = (const pm_forwarding_super_node_t *) node;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             break;
         }
@@ -1040,7 +974,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_global_variable_and_write_node_t *cast = (const pm_global_variable_and_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1048,7 +982,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_global_variable_operator_write_node_t *cast = (const pm_global_variable_operator_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1056,7 +990,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_global_variable_or_write_node_t *cast = (const pm_global_variable_or_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1068,7 +1002,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_global_variable_write_node_t *cast = (const pm_global_variable_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1078,7 +1012,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the elements field
             const pm_node_list_t *elements = &cast->elements;
             for (size_t index = 0; index < elements->size; index++) {
-                pm_visit_node(elements->nodes[index], visitor, data);
+                if (!pm_visit_node(elements->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1087,20 +1021,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_hash_pattern_node_t *cast = (const pm_hash_pattern_node_t *) node;
 
             // Visit the constant field
-            if (cast->constant != NULL) {
-                pm_visit_node((const pm_node_t *) cast->constant, visitor, data);
-            }
+            if (cast->constant != NULL && !pm_visit_node((const pm_node_t *) cast->constant, visitor, data)) return false;
 
             // Visit the elements field
             const pm_node_list_t *elements = &cast->elements;
             for (size_t index = 0; index < elements->size; index++) {
-                pm_visit_node(elements->nodes[index], visitor, data);
+                if (!pm_visit_node(elements->nodes[index], visitor, data)) return false;
             }
 
             // Visit the rest field
-            if (cast->rest != NULL) {
-                pm_visit_node((const pm_node_t *) cast->rest, visitor, data);
-            }
+            if (cast->rest != NULL && !pm_visit_node((const pm_node_t *) cast->rest, visitor, data)) return false;
 
             break;
         }
@@ -1108,17 +1038,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_if_node_t *cast = (const pm_if_node_t *) node;
 
             // Visit the predicate field
-            pm_visit_node((const pm_node_t *) cast->predicate, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->predicate, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             // Visit the subsequent field
-            if (cast->subsequent != NULL) {
-                pm_visit_node((const pm_node_t *) cast->subsequent, visitor, data);
-            }
+            if (cast->subsequent != NULL && !pm_visit_node((const pm_node_t *) cast->subsequent, visitor, data)) return false;
 
             break;
         }
@@ -1126,7 +1052,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_imaginary_node_t *cast = (const pm_imaginary_node_t *) node;
 
             // Visit the numeric field
-            pm_visit_node((const pm_node_t *) cast->numeric, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->numeric, visitor, data)) return false;
 
             break;
         }
@@ -1134,7 +1060,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_implicit_node_t *cast = (const pm_implicit_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1144,12 +1070,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_in_node_t *cast = (const pm_in_node_t *) node;
 
             // Visit the pattern field
-            pm_visit_node((const pm_node_t *) cast->pattern, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->pattern, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1157,22 +1081,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_index_and_write_node_t *cast = (const pm_index_and_write_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1180,22 +1098,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_index_operator_write_node_t *cast = (const pm_index_operator_write_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1203,22 +1115,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_index_or_write_node_t *cast = (const pm_index_or_write_node_t *) node;
 
             // Visit the receiver field
-            if (cast->receiver != NULL) {
-                pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
-            }
+            if (cast->receiver != NULL && !pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1226,17 +1132,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_index_target_node_t *cast = (const pm_index_target_node_t *) node;
 
             // Visit the receiver field
-            pm_visit_node((const pm_node_t *) cast->receiver, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->receiver, visitor, data)) return false;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             break;
         }
@@ -1244,7 +1146,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_instance_variable_and_write_node_t *cast = (const pm_instance_variable_and_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1252,7 +1154,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_instance_variable_operator_write_node_t *cast = (const pm_instance_variable_operator_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1260,7 +1162,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_instance_variable_or_write_node_t *cast = (const pm_instance_variable_or_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1272,7 +1174,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_instance_variable_write_node_t *cast = (const pm_instance_variable_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1284,7 +1186,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the parts field
             const pm_node_list_t *parts = &cast->parts;
             for (size_t index = 0; index < parts->size; index++) {
-                pm_visit_node(parts->nodes[index], visitor, data);
+                if (!pm_visit_node(parts->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1295,7 +1197,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the parts field
             const pm_node_list_t *parts = &cast->parts;
             for (size_t index = 0; index < parts->size; index++) {
-                pm_visit_node(parts->nodes[index], visitor, data);
+                if (!pm_visit_node(parts->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1306,7 +1208,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the parts field
             const pm_node_list_t *parts = &cast->parts;
             for (size_t index = 0; index < parts->size; index++) {
-                pm_visit_node(parts->nodes[index], visitor, data);
+                if (!pm_visit_node(parts->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1317,7 +1219,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the parts field
             const pm_node_list_t *parts = &cast->parts;
             for (size_t index = 0; index < parts->size; index++) {
-                pm_visit_node(parts->nodes[index], visitor, data);
+                if (!pm_visit_node(parts->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1328,7 +1230,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the parts field
             const pm_node_list_t *parts = &cast->parts;
             for (size_t index = 0; index < parts->size; index++) {
-                pm_visit_node(parts->nodes[index], visitor, data);
+                if (!pm_visit_node(parts->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1343,7 +1245,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the elements field
             const pm_node_list_t *elements = &cast->elements;
             for (size_t index = 0; index < elements->size; index++) {
-                pm_visit_node(elements->nodes[index], visitor, data);
+                if (!pm_visit_node(elements->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1354,14 +1256,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_lambda_node_t *cast = (const pm_lambda_node_t *) node;
 
             // Visit the parameters field
-            if (cast->parameters != NULL) {
-                pm_visit_node((const pm_node_t *) cast->parameters, visitor, data);
-            }
+            if (cast->parameters != NULL && !pm_visit_node((const pm_node_t *) cast->parameters, visitor, data)) return false;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -1369,7 +1267,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_local_variable_and_write_node_t *cast = (const pm_local_variable_and_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1377,7 +1275,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_local_variable_operator_write_node_t *cast = (const pm_local_variable_operator_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1385,7 +1283,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_local_variable_or_write_node_t *cast = (const pm_local_variable_or_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1397,7 +1295,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_local_variable_write_node_t *cast = (const pm_local_variable_write_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1407,10 +1305,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_match_predicate_node_t *cast = (const pm_match_predicate_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             // Visit the pattern field
-            pm_visit_node((const pm_node_t *) cast->pattern, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->pattern, visitor, data)) return false;
 
             break;
         }
@@ -1418,10 +1316,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_match_required_node_t *cast = (const pm_match_required_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             // Visit the pattern field
-            pm_visit_node((const pm_node_t *) cast->pattern, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->pattern, visitor, data)) return false;
 
             break;
         }
@@ -1429,12 +1327,12 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_match_write_node_t *cast = (const pm_match_write_node_t *) node;
 
             // Visit the call field
-            pm_visit_node((const pm_node_t *) cast->call, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->call, visitor, data)) return false;
 
             // Visit the targets field
             const pm_node_list_t *targets = &cast->targets;
             for (size_t index = 0; index < targets->size; index++) {
-                pm_visit_node(targets->nodes[index], visitor, data);
+                if (!pm_visit_node(targets->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1443,12 +1341,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_module_node_t *cast = (const pm_module_node_t *) node;
 
             // Visit the constant_path field
-            pm_visit_node((const pm_node_t *) cast->constant_path, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->constant_path, visitor, data)) return false;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -1458,18 +1354,16 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the lefts field
             const pm_node_list_t *lefts = &cast->lefts;
             for (size_t index = 0; index < lefts->size; index++) {
-                pm_visit_node(lefts->nodes[index], visitor, data);
+                if (!pm_visit_node(lefts->nodes[index], visitor, data)) return false;
             }
 
             // Visit the rest field
-            if (cast->rest != NULL) {
-                pm_visit_node((const pm_node_t *) cast->rest, visitor, data);
-            }
+            if (cast->rest != NULL && !pm_visit_node((const pm_node_t *) cast->rest, visitor, data)) return false;
 
             // Visit the rights field
             const pm_node_list_t *rights = &cast->rights;
             for (size_t index = 0; index < rights->size; index++) {
-                pm_visit_node(rights->nodes[index], visitor, data);
+                if (!pm_visit_node(rights->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1480,22 +1374,20 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the lefts field
             const pm_node_list_t *lefts = &cast->lefts;
             for (size_t index = 0; index < lefts->size; index++) {
-                pm_visit_node(lefts->nodes[index], visitor, data);
+                if (!pm_visit_node(lefts->nodes[index], visitor, data)) return false;
             }
 
             // Visit the rest field
-            if (cast->rest != NULL) {
-                pm_visit_node((const pm_node_t *) cast->rest, visitor, data);
-            }
+            if (cast->rest != NULL && !pm_visit_node((const pm_node_t *) cast->rest, visitor, data)) return false;
 
             // Visit the rights field
             const pm_node_list_t *rights = &cast->rights;
             for (size_t index = 0; index < rights->size; index++) {
-                pm_visit_node(rights->nodes[index], visitor, data);
+                if (!pm_visit_node(rights->nodes[index], visitor, data)) return false;
             }
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1503,9 +1395,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_next_node_t *cast = (const pm_next_node_t *) node;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             break;
         }
@@ -1523,7 +1413,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_optional_keyword_parameter_node_t *cast = (const pm_optional_keyword_parameter_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1531,7 +1421,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_optional_parameter_node_t *cast = (const pm_optional_parameter_node_t *) node;
 
             // Visit the value field
-            pm_visit_node((const pm_node_t *) cast->value, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->value, visitor, data)) return false;
 
             break;
         }
@@ -1539,10 +1429,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_or_node_t *cast = (const pm_or_node_t *) node;
 
             // Visit the left field
-            pm_visit_node((const pm_node_t *) cast->left, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->left, visitor, data)) return false;
 
             // Visit the right field
-            pm_visit_node((const pm_node_t *) cast->right, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->right, visitor, data)) return false;
 
             break;
         }
@@ -1552,41 +1442,35 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the requireds field
             const pm_node_list_t *requireds = &cast->requireds;
             for (size_t index = 0; index < requireds->size; index++) {
-                pm_visit_node(requireds->nodes[index], visitor, data);
+                if (!pm_visit_node(requireds->nodes[index], visitor, data)) return false;
             }
 
             // Visit the optionals field
             const pm_node_list_t *optionals = &cast->optionals;
             for (size_t index = 0; index < optionals->size; index++) {
-                pm_visit_node(optionals->nodes[index], visitor, data);
+                if (!pm_visit_node(optionals->nodes[index], visitor, data)) return false;
             }
 
             // Visit the rest field
-            if (cast->rest != NULL) {
-                pm_visit_node((const pm_node_t *) cast->rest, visitor, data);
-            }
+            if (cast->rest != NULL && !pm_visit_node((const pm_node_t *) cast->rest, visitor, data)) return false;
 
             // Visit the posts field
             const pm_node_list_t *posts = &cast->posts;
             for (size_t index = 0; index < posts->size; index++) {
-                pm_visit_node(posts->nodes[index], visitor, data);
+                if (!pm_visit_node(posts->nodes[index], visitor, data)) return false;
             }
 
             // Visit the keywords field
             const pm_node_list_t *keywords = &cast->keywords;
             for (size_t index = 0; index < keywords->size; index++) {
-                pm_visit_node(keywords->nodes[index], visitor, data);
+                if (!pm_visit_node(keywords->nodes[index], visitor, data)) return false;
             }
 
             // Visit the keyword_rest field
-            if (cast->keyword_rest != NULL) {
-                pm_visit_node((const pm_node_t *) cast->keyword_rest, visitor, data);
-            }
+            if (cast->keyword_rest != NULL && !pm_visit_node((const pm_node_t *) cast->keyword_rest, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             break;
         }
@@ -1594,9 +1478,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_parentheses_node_t *cast = (const pm_parentheses_node_t *) node;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -1604,7 +1486,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_pinned_expression_node_t *cast = (const pm_pinned_expression_node_t *) node;
 
             // Visit the expression field
-            pm_visit_node((const pm_node_t *) cast->expression, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->expression, visitor, data)) return false;
 
             break;
         }
@@ -1612,7 +1494,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_pinned_variable_node_t *cast = (const pm_pinned_variable_node_t *) node;
 
             // Visit the variable field
-            pm_visit_node((const pm_node_t *) cast->variable, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->variable, visitor, data)) return false;
 
             break;
         }
@@ -1620,9 +1502,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_post_execution_node_t *cast = (const pm_post_execution_node_t *) node;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1630,9 +1510,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_pre_execution_node_t *cast = (const pm_pre_execution_node_t *) node;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1640,7 +1518,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_program_node_t *cast = (const pm_program_node_t *) node;
 
             // Visit the statements field
-            pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1648,14 +1526,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_range_node_t *cast = (const pm_range_node_t *) node;
 
             // Visit the left field
-            if (cast->left != NULL) {
-                pm_visit_node((const pm_node_t *) cast->left, visitor, data);
-            }
+            if (cast->left != NULL && !pm_visit_node((const pm_node_t *) cast->left, visitor, data)) return false;
 
             // Visit the right field
-            if (cast->right != NULL) {
-                pm_visit_node((const pm_node_t *) cast->right, visitor, data);
-            }
+            if (cast->right != NULL && !pm_visit_node((const pm_node_t *) cast->right, visitor, data)) return false;
 
             break;
         }
@@ -1673,10 +1547,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_rescue_modifier_node_t *cast = (const pm_rescue_modifier_node_t *) node;
 
             // Visit the expression field
-            pm_visit_node((const pm_node_t *) cast->expression, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->expression, visitor, data)) return false;
 
             // Visit the rescue_expression field
-            pm_visit_node((const pm_node_t *) cast->rescue_expression, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->rescue_expression, visitor, data)) return false;
 
             break;
         }
@@ -1686,23 +1560,17 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the exceptions field
             const pm_node_list_t *exceptions = &cast->exceptions;
             for (size_t index = 0; index < exceptions->size; index++) {
-                pm_visit_node(exceptions->nodes[index], visitor, data);
+                if (!pm_visit_node(exceptions->nodes[index], visitor, data)) return false;
             }
 
             // Visit the reference field
-            if (cast->reference != NULL) {
-                pm_visit_node((const pm_node_t *) cast->reference, visitor, data);
-            }
+            if (cast->reference != NULL && !pm_visit_node((const pm_node_t *) cast->reference, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             // Visit the subsequent field
-            if (cast->subsequent != NULL) {
-                pm_visit_node((const pm_node_t *) cast->subsequent, visitor, data);
-            }
+            if (cast->subsequent != NULL && !pm_visit_node((const pm_node_t *) cast->subsequent, visitor, data)) return false;
 
             break;
         }
@@ -1714,9 +1582,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_return_node_t *cast = (const pm_return_node_t *) node;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             break;
         }
@@ -1726,7 +1592,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_shareable_constant_node_t *cast = (const pm_shareable_constant_node_t *) node;
 
             // Visit the write field
-            pm_visit_node((const pm_node_t *) cast->write, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->write, visitor, data)) return false;
 
             break;
         }
@@ -1734,12 +1600,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_singleton_class_node_t *cast = (const pm_singleton_class_node_t *) node;
 
             // Visit the expression field
-            pm_visit_node((const pm_node_t *) cast->expression, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->expression, visitor, data)) return false;
 
             // Visit the body field
-            if (cast->body != NULL) {
-                pm_visit_node((const pm_node_t *) cast->body, visitor, data);
-            }
+            if (cast->body != NULL && !pm_visit_node((const pm_node_t *) cast->body, visitor, data)) return false;
 
             break;
         }
@@ -1753,9 +1617,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_splat_node_t *cast = (const pm_splat_node_t *) node;
 
             // Visit the expression field
-            if (cast->expression != NULL) {
-                pm_visit_node((const pm_node_t *) cast->expression, visitor, data);
-            }
+            if (cast->expression != NULL && !pm_visit_node((const pm_node_t *) cast->expression, visitor, data)) return false;
 
             break;
         }
@@ -1765,7 +1627,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the body field
             const pm_node_list_t *body = &cast->body;
             for (size_t index = 0; index < body->size; index++) {
-                pm_visit_node(body->nodes[index], visitor, data);
+                if (!pm_visit_node(body->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1776,14 +1638,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_super_node_t *cast = (const pm_super_node_t *) node;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             // Visit the block field
-            if (cast->block != NULL) {
-                pm_visit_node((const pm_node_t *) cast->block, visitor, data);
-            }
+            if (cast->block != NULL && !pm_visit_node((const pm_node_t *) cast->block, visitor, data)) return false;
 
             break;
         }
@@ -1797,7 +1655,7 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the names field
             const pm_node_list_t *names = &cast->names;
             for (size_t index = 0; index < names->size; index++) {
-                pm_visit_node(names->nodes[index], visitor, data);
+                if (!pm_visit_node(names->nodes[index], visitor, data)) return false;
             }
 
             break;
@@ -1806,17 +1664,13 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_unless_node_t *cast = (const pm_unless_node_t *) node;
 
             // Visit the predicate field
-            pm_visit_node((const pm_node_t *) cast->predicate, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->predicate, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             // Visit the else_clause field
-            if (cast->else_clause != NULL) {
-                pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data);
-            }
+            if (cast->else_clause != NULL && !pm_visit_node((const pm_node_t *) cast->else_clause, visitor, data)) return false;
 
             break;
         }
@@ -1824,12 +1678,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_until_node_t *cast = (const pm_until_node_t *) node;
 
             // Visit the predicate field
-            pm_visit_node((const pm_node_t *) cast->predicate, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->predicate, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1839,13 +1691,11 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             // Visit the conditions field
             const pm_node_list_t *conditions = &cast->conditions;
             for (size_t index = 0; index < conditions->size; index++) {
-                pm_visit_node(conditions->nodes[index], visitor, data);
+                if (!pm_visit_node(conditions->nodes[index], visitor, data)) return false;
             }
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1853,12 +1703,10 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_while_node_t *cast = (const pm_while_node_t *) node;
 
             // Visit the predicate field
-            pm_visit_node((const pm_node_t *) cast->predicate, visitor, data);
+            if (!pm_visit_node((const pm_node_t *) cast->predicate, visitor, data)) return false;
 
             // Visit the statements field
-            if (cast->statements != NULL) {
-                pm_visit_node((const pm_node_t *) cast->statements, visitor, data);
-            }
+            if (cast->statements != NULL && !pm_visit_node((const pm_node_t *) cast->statements, visitor, data)) return false;
 
             break;
         }
@@ -1868,15 +1716,15 @@ pm_visit_child_nodes(const pm_node_t *node, bool (*visitor)(const pm_node_t *nod
             const pm_yield_node_t *cast = (const pm_yield_node_t *) node;
 
             // Visit the arguments field
-            if (cast->arguments != NULL) {
-                pm_visit_node((const pm_node_t *) cast->arguments, visitor, data);
-            }
+            if (cast->arguments != NULL && !pm_visit_node((const pm_node_t *) cast->arguments, visitor, data)) return false;
 
             break;
         }
         case PM_SCOPE_NODE:
             break;
     }
+
+    return true;
 }
 
 /**