From c6c6e15e9f13e45bc7a1e2626ca41e03f0ba0983 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 5 Jan 2018 14:35:53 -0800
Subject: nthcdr: terminate loop if end of list hit.

* lib.c (nthcdr): Terminate loop when nil is
hit rather than continuing to count down to zero.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib.c b/lib.c
index 31351fba..f70372fb 100644
--- a/lib.c
+++ b/lib.c
@@ -726,7 +726,7 @@ val nthcdr(val pos, val list)
 
   gc_hint(list);
 
-  while (n-- > 0)
+  while (list && n-- > 0)
     list = cdr(list);
 
   return list;
-- 
cgit v1.2.3