From 5ef764e0d2e14d65d91a3182df1f58c145dab8f9 Mon Sep 17 00:00:00 2001
From: "K.Kosako" <kosako@sofnec.co.jp>
Date: Fri, 9 Jun 2017 17:43:14 +0900
Subject: [PATCH] reduce code

---
 src/regcomp.c | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/regcomp.c b/src/regcomp.c
index d441625..7551a12 100644
--- a/src/regcomp.c
+++ b/src/regcomp.c
@@ -3058,6 +3058,12 @@ setup_subexp_call(Node* node, ScanEnv* env)
     } while (r == 0 && IS_NOT_NULL(node = NODE_CDR(node)));
     break;
 
+  case NODE_ANCHOR:
+    if (! ANCHOR_HAS_BODY(ANCHOR_(node))) {
+      r = 0;
+      break;
+    }
+    /* fall */
   case NODE_QTFR:
   case NODE_ENCLOSURE:
     r = setup_subexp_call(NODE_BODY(node), env);
@@ -3067,16 +3073,6 @@ setup_subexp_call(Node* node, ScanEnv* env)
     r = setup_subexp_call_node_call(CALL_(node), env);
     break;
 
-  case NODE_ANCHOR:
-    {
-      AnchorNode* an = ANCHOR_(node);
-      if (ANCHOR_HAS_BODY(an))
-        r = setup_subexp_call(NODE_ANCHOR_BODY(an), env);
-      else
-        r = 0;
-    }
-    break;
-
   default:
     r = 0;
     break;
-- 
2.40.0