added reverselist; free recycling bin on error exit

diff --git a/Objects/listobject.c b/Objects/listobject.c
index 5c3d0ed36c564198229536c381a0812d39302dff..9c9ed7593b5be8e412053dec0455d1fabaf933bc 100644 (file)
--- a/Objects/listobject.c
+++ b/Objects/listobject.c
@@ -427,6 +427,7 @@ list_ass_slice(a, ilow, ihigh, v)
        else { /* Insert d items; recycle ihigh-ilow items */
                RESIZE(item, object *, a->ob_size + d);
                if (item == NULL) {
+                       XDEL(recycle);
                        err_nomem();
                        return -1;
                }
@@ -612,6 +613,21 @@ listreverse(self, args)
        return None;
 }
 
+int
+reverselist(v)
+       object *v;
+{
+       if (v == NULL || !is_listobject(v)) {
+               err_badcall();
+               return -1;
+       }
+       v = listreverse((listobject *)v, (object *)NULL);
+       if (v == NULL)
+               return -1;
+       DECREF(v);
+       return 0;
+}
+
 int
 sortlist(v)
        object *v;