* bug#26440: seq-mapn fails with circular sequence
@ 2017-04-11 8:12 Phillip Lord
2017-04-12 8:22 ` Nicolas Petton
0 siblings, 1 reply; 4+ messages in thread
From: Phillip Lord @ 2017-04-11 8:12 UTC (permalink / raw)
To: 26440
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)))
^ permalink raw reply [flat|nested] 4+ messages in thread* bug#26440: seq-mapn fails with circular sequence 2017-04-11 8:12 bug#26440: seq-mapn fails with circular sequence Phillip Lord @ 2017-04-12 8:22 ` Nicolas Petton 2017-07-31 11:34 ` Nicolas Petton 0 siblings, 1 reply; 4+ messages in thread From: Nicolas Petton @ 2017-04-12 8:22 UTC (permalink / raw) To: Phillip Lord; +Cc: 26440 "Phillip Lord" <phillip.lord@russet.org.uk> writes: Hi Phillip, > The problem does exist on trunk which does this instead: Did you mean "does not exist"? Cheers, Nico ^ permalink raw reply [flat|nested] 4+ messages in thread
* bug#26440: seq-mapn fails with circular sequence 2017-04-12 8:22 ` Nicolas Petton @ 2017-07-31 11:34 ` Nicolas Petton 2017-08-01 18:40 ` Nicolas Petton 0 siblings, 1 reply; 4+ messages in thread From: Nicolas Petton @ 2017-07-31 11:34 UTC (permalink / raw) To: Phillip Lord; +Cc: 26440 [-- Attachment #1: Type: text/plain, Size: 238 bytes --] Nicolas Petton <nicolas@petton.fr> writes: >> The problem does exist on trunk which does this instead: This is using seq.el from trunk: (defvar l '(a c d)) (setq l (nconc l l)) (seq-mapn #'cons l '(1)) ;; ((a . 1)) Cheers, Nico [-- Attachment #2: signature.asc --] [-- Type: application/pgp-signature, Size: 487 bytes --] ^ permalink raw reply [flat|nested] 4+ messages in thread
* bug#26440: seq-mapn fails with circular sequence 2017-07-31 11:34 ` Nicolas Petton @ 2017-08-01 18:40 ` Nicolas Petton 0 siblings, 0 replies; 4+ messages in thread From: Nicolas Petton @ 2017-08-01 18:40 UTC (permalink / raw) To: Phillip Lord; +Cc: 26440-done, 26440 [-- Attachment #1: Type: text/plain, Size: 298 bytes --] Nicolas Petton <nicolas@petton.fr> 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 [-- Attachment #2: signature.asc --] [-- Type: application/pgp-signature, Size: 487 bytes --] ^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2017-08-01 18:40 UTC | newest] Thread overview: 4+ messages (download: mbox.gz follow: Atom feed -- links below jump to the message on this page -- 2017-04-11 8:12 bug#26440: seq-mapn fails with circular sequence Phillip Lord 2017-04-12 8:22 ` Nicolas Petton 2017-07-31 11:34 ` Nicolas Petton 2017-08-01 18:40 ` Nicolas Petton
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).