集车的不同行为！在两个看起来相同的列表上

Question

我对set-car!应用于具有相同结构但构造方式不同的两个列表的结果感到困惑。

以下是两个列表m和n的代码示例：

(define m
  (cons
    (cons 'a '())
    (cons
      (cons 'a '())
      '())))
(display m)(newline) ; => ((a) (a))
(set-car! (cadr m) 'b)
(display m)(newline) ; => ((a) (b))

(newline)

(define n (list '(x) '(x)))
(display n)(newline) ; => ((x) (x))
(set-car! (cadr n) 'y)
(display n)(newline) ; => ((y) (y))

根据do display，两个列表具有相同的结构，但为什么对它们应用相同的过程会导致不同的行为？它与它们的构造方式有关吗？

Answer 1

两个列表的结果应该相同。您使用的是哪种Scheme解释器？在我看来，你的翻译重用了'(x)表达式。

评论之后，实际上这似乎是解释器中的一个错误。修改后两个列表的行为应该相同。