fix setting NST_RECURSION flag to call-node

diff --git a/src/regcomp.c b/src/regcomp.c
index f192859fe86a42cedbc95bf735309098d9848ef4..459a7c33524b4e74957152e6ccc99e346959aa6a 100644 (file)
--- a/src/regcomp.c
+++ b/src/regcomp.c
@@ -3449,7 +3449,10 @@ recursive_call_check(Node* node)
 
   case NODE_CALL:
     r = recursive_call_check(NODE_BODY(node));
-    if (r != 0) NODE_STATUS_ADD(node, NST_RECURSION);
+    if (r != 0) {
+      if (NODE_IS_RECURSION(NODE_BODY(node)))
+        NODE_STATUS_ADD(node, NST_RECURSION);
+    }
     break;
 
   case NODE_ENCLOSURE: