From 3f4b4dc10fa7e2d099b2ba0dfef78c108a671ec9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 22 Nov 2017 06:54:49 -0800
Subject: lastcons: streamline.

* lib.c (lastcons): Don't wastefully call cdr on an object
after called cdr_l; just dereference the cdr_l loc.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index 08deb233..8bc522c1 100644
--- a/lib.c
+++ b/lib.c
@@ -635,7 +635,7 @@ loc lastcons(val list)
 
   while (consp(cdr(list))) {
     ret = cdr_l(list);
-    list = cdr(list);
+    list = deref(ret);
   }
   return ret;
 }
-- 
cgit v1.2.3