Inheritance overhaul by Chris Bitmead <chris@bitmead.com>

1 files changed, 16 insertions, 1 deletions

diff --git a/src/backend/nodes/list.c b/src/backend/nodes/list.c
index 66d69199beb..45f42dc5024 100644
--- a/src/backend/nodes/list.c
+++ b/src/backend/nodes/list.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/nodes/list.c,v 1.31 2000/04/12 17:15:16 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/nodes/list.c,v 1.32 2000/06/09 01:44:12 momjian Exp $
  *
  * NOTES
  *	  XXX a few of the following functions are duplicated to handle
@@ -523,6 +523,21 @@ set_differencei(List *l1, List *l2)
 }
 
 /*
+ * Reverse a list, non-destructively
+ */
+List *
+lreverse(List *l)
+{
+    List       *result = NIL;
+    List       *i;
+    foreach(i, l)
+    {
+        result = lcons(lfirst(i), result);
+    }
+    return result;
+}
+
+/*
  * Return t if two integer lists have no members in common.
  */
 bool