From a25f4dfafb02f162dcfca3729b37ed2bbcfe44e0 Mon Sep 17 00:00:00 2001
From: Paul Eggert
Date: Mon, 11 Apr 2011 22:17:33 -0700
Subject: * lisp.h (circular_list_error, FOREACH): Remove; unused.

* data.c (circular_list_error): Remove.
---
 src/data.c | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/data.c')

diff --git a/src/data.c b/src/data.c
index 68ceff4d23e..ca246b60dd4 100644
--- a/src/data.c
+++ b/src/data.c
@@ -101,13 +101,6 @@ Lisp_Object Qinteractive_form;
 static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *);
 
 
-void
-circular_list_error (Lisp_Object list)
-{
-  xsignal (Qcircular_list, list);
-}
-
-
 Lisp_Object
 wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value)
 {
-- 
cgit v1.2.1