* src/fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.

ff2bc410 · Stefan Monnier · 25aef8b8 · ff2bc410 · ff2bc410
Commit ff2bc410 authored Jun 17, 2011 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

src/ChangeLog src/ChangeLog +4 -0

src/fns.c src/fns.c +1 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2011-06-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.
+
 2011-06-16  Paul Eggert  <eggert@cs.ucla.edu>

 	* lisp.h: Include <limits.h>, for INT_MAX, LONG_MAX, LLONG_MAX.

--- a/src/fns.c
+++ b/src/fns.c
@@ -168,7 +168,7 @@ which is at least the number of distinct elements.  */)
  uintmax_t lolen = 1;

  if (! CONSP (list))
-    return 0;
+    return make_number (0);

  /* halftail is used to detect circular lists.  */
  for (tail = halftail = list; ; )