From 284c8bc6c54caad3786c9389262ea8a6d218bc85 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 6 Jan 2018 22:33:05 -0800
Subject: listref_l: remove.

* lib.c (listref_l): Unused function removed.

* lib.h (listref_l): Declaration removed.
---
 lib.c | 17 -----------------
 lib.h |  1 -
 2 files changed, 18 deletions(-)

diff --git a/lib.c b/lib.c
index fff754d5..fd60e1f7 100644
--- a/lib.c
+++ b/lib.c
@@ -653,23 +653,6 @@ val listref(val list, val ind)
   return car(list);
 }
 
-loc listref_l(val list, val ind)
-{
-  val olist = list;
-  val oind = ind;
-
-  if (lt(ind, zero))
-    ind = plus(ind, length_list(list));
-
-  for (; gt(ind, zero) && list; ind = minus(ind, one))
-    list = cdr(list);
-  if (ge(ind, zero) && consp(list))
-    return car_l(list);
-
-  uw_throwf(error_s, lit("~s has no assignable location at ~s"),
-            olist, oind,  nao);
-}
-
 loc tail(val cons)
 {
   while (consp(cdr(cons)))
diff --git a/lib.h b/lib.h
index 2cd17d38..6a65e617 100644
--- a/lib.h
+++ b/lib.h
@@ -534,7 +534,6 @@ val tenth(val cons);
 val conses(val list);
 val lazy_conses(val list);
 val listref(val list, val ind);
-loc listref_l(val list, val ind);
 loc tail(val cons);
 loc term(loc head);
 val lastcons(val list);
-- 
cgit v1.2.3