# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976112535 0
# Node ID 773e6aa2ec385b7cab01a701b4577e90ca1e3ffd
# Parent  a50ccd431a275afecb69cbb34682cb14400f8098
(Fgarbage_collect): Dox fix.  Return a list as
advertized by the function documentation.

diff -r a50ccd431a27 -r 773e6aa2ec38 src/alloc.c
--- a/src/alloc.c	Wed Dec 06 14:02:38 2000 +0000
+++ b/src/alloc.c	Wed Dec 06 14:22:15 2000 +0000
@@ -3687,7 +3687,7 @@
 Returns info on amount of space in use:\n\
  ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\
   (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS\n\
-  (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS\n\
+  (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS)\n\
   (USED-STRINGS . FREE-STRINGS))\n\
 Garbage collection happens automatically if you cons more than\n\
 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.")
@@ -3701,7 +3701,7 @@
   char stack_top_variable;
   register int i;
   int message_p;
-  Lisp_Object total[7];
+  Lisp_Object total[8];
 
   /* In case user calls debug_print during GC,
      don't let that cause a recursive GC.  */
@@ -3921,13 +3921,13 @@
 		    make_number (total_free_symbols));
   total[2] = Fcons (make_number (total_markers),
 		    make_number (total_free_markers));
-  total[3] = Fcons (make_number (total_string_size),
-		    make_number (total_vector_size));
-  total[4] = Fcons (make_number (total_floats),
+  total[3] = make_number (total_string_size);
+  total[4] = make_number (total_vector_size);
+  total[5] = Fcons (make_number (total_floats),
 		    make_number (total_free_floats));
-  total[5] = Fcons (make_number (total_intervals),
+  total[6] = Fcons (make_number (total_intervals),
 		    make_number (total_free_intervals));
-  total[6] = Fcons (make_number (total_strings),
+  total[7] = Fcons (make_number (total_strings),
 		    make_number (total_free_strings));
 
 #if GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES
@@ -3946,7 +3946,7 @@
     }
 #endif
 
-  return Flist (7, total);
+  return Flist (sizeof total / sizeof *total, total);
 }