GNU bug report logs - #62287
Ungexp inside vector problem

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Andrew Tropin <andrew <at> trop.in>
To: bug-guix <at> gnu.org
Subject: Ungexp inside vector problem
Date: Mon, 20 Mar 2023 09:49:39 +0400

[Message part 1 (text/plain, inline)]

I would expect two last expressions return the same result, but the
former one doesn't do ungexp:

--8<---------------cut here---------------start------------->8---
(define a '(3 4))

(define b `#(1 2 ,a))

(eval-with-store
 #~(list '(1 2 #$a))) ;; => ((1 2 (3 4)))

(eval-with-store
 #~(list #(1 2 #$a))) ;; => (#(1 2 (ungexp a)))

(eval-with-store
 #~(list #$b)) ;; => (#(1 2 4))
--8<---------------cut here---------------end--------------->8---

Am I doing/expecting something wrong or there is a bug here?

-- 
Best regards,
Andrew Tropin

[signature.asc (application/pgp-signature, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.