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
Description: PGP signature
