SRFI-1 'length+' raises an error unless passed a proper or circular list.
authorMark H Weaver <mhw@netris.org>
Fri, 18 Apr 2014 19:04:12 +0000 (15:04 -0400)
committerMark H Weaver <mhw@netris.org>
Sun, 1 Jun 2014 23:19:40 +0000 (19:19 -0400)
commita5186f506f69ef8a8accd234ca434efd13f302c9
tree7ebaceaf19c1e738ebf3b504c7af4b5567010872
parent12c6a47773041ff5d0a3553421d2f358d9e479a9
SRFI-1 'length+' raises an error unless passed a proper or circular list.

Fixes <http://bugs.gnu.org/17296>.

* libguile/srfi-1.c (scm_srfi1_length_plus): Rewrite to raise an error
  unless passed a proper or circular list, based on code from
  'scm_ilength'.

* test-suite/tests/srfi-1.test (length+): Add tests.
libguile/srfi-1.c
test-suite/tests/srfi-1.test