Remove unused variable.

[sxemacs] / modules / cl / cl-loop.c

diff --git a/modules/cl/cl-loop.c b/modules/cl/cl-loop.c
index 40d3148..a59d7d8 100644 (file)
--- a/modules/cl/cl-loop.c
+++ b/modules/cl/cl-loop.c
@@ -1523,7 +1523,6 @@ cl_loop_dllist_map_return(
        Lisp_Object *result,
        Lisp_Object(*fun)(Lisp_Object*, Lisp_Object), dllist_t dll)
 {
-       int state;
        dllist_item_t item = dllist_first(dll);
        Lisp_Object ret = Qnil;
 
@@ -1531,7 +1530,6 @@ cl_loop_dllist_map_return(
                return Qnil;
        }
 
-       state = 1;
        while (item) {
                ret = fun(result, (Lisp_Object)item->item);
                item = item->next;