[debbugs-tracker] bug#26440: closed (seq-mapn fails with circular sequence)

[GNU bug Tracking System]

Your message dated Tue, 01 Aug 2017 20:40:20 +0200
with message-id <address@hidden>
and subject line Re: bug#26440: seq-mapn fails with circular sequence
has caused the debbugs.gnu.org bug report #26440,
regarding seq-mapn fails with circular sequence
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
26440: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=26440
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> seq-mapn fails with circular sequence
>
>
>
>
> Date: 
>
> Tue, 11 Apr 2017 08:12:40 -0000
>
>
>
>
> User-agent: 
>
> SquirrelMail/1.5.2 [SVN]
>
>
>
>
> On Emacs-25 circular structures cause seq-mapn not to terminate
> although the documentation suggest that they should.
>
> Consider:
>
>     (defvar l '(a c d))
>     (setq l (nconc l l))
>     (seq-mapn #'cons l '(1))
>
> This should return '((a . 1)) but actually does not terminate.
>
> The problem is caused by call to seq-into which includes:
>
>     (append sequence nil)
>
> The problem does exist on trunk which does this instead:
>
>     (if (listp sequence)
>         sequence
>       (append sequence nil)))
>
>
>
>
>
>
> --- End Message ---

--- Begin Message --- Subject: Re: bug#26440: seq-mapn fails with circular sequence Date: Tue, 01 Aug 2017 20:40:20 +0200

Nicolas Petton <address@hidden> writes:

Hi Phillip,

> This is using seq.el from trunk:
>
>   (defvar l '(a c d))
>   (setq l (nconc l l))
>   (seq-mapn #'cons l '(1)) ;; ((a . 1))


I'm closing this issue, but feel free to reopen it if you can reproduce
the problem with master.

Cheers,
Nico

signature.asc
Description: PGP signature

--- End Message ---