From 395240290e1db914b209a6d1f76f19bd3acd118f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 28 Nov 2015 08:52:32 -0800
Subject: 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.
---
 parser.y | 9 ++++-----
 1 file 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;
 }
-- 
cgit v1.2.3