lastcons: streamline.

* lib.c (lastcons): Don't wastefully call cdr on an object
after called cdr_l; just dereference the cdr_l loc.

1 files changed, 1 insertions, 1 deletions

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;
 }