Remove useless test from rlcp_tree.

* parser.y (rlcp_tree): Remove redunant test, around the for
loop, of a condition which is the same as its guard condition.

1 files changed, 4 insertions, 5 deletions

diff --git a/parser.y b/parser.y
index 1420c698..e4bb7a4c 100644
--- a/parser.y
+++ b/parser.y
@@ -1376,11 +1376,10 @@ val rlrec(parser_t *parser, val form, val line)
 val rlcp_tree(val to, val from)
 {
   val ret = to;
-  if (consp(to)) {
-    for (; consp(to); to = cdr(to)) {
-      rlcp(to, from);
-      rlcp_tree(car(to), from);
-    }
+
+  for (; consp(to); to = cdr(to)) {
+    rlcp(to, from);
+    rlcp_tree(car(to), from);
   }
   return ret;
 }