diff options
| -rw-r--r-- | robust_test.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/robust_test.scm b/robust_test.scm index bc327ea..6dd4abf 100644 --- a/robust_test.scm +++ b/robust_test.scm @@ -223,3 +223,9 @@ src (equal? #(1 2 '()) #(1 2 '(1))) (equal? #(1 2 '(1)) #(1 2 '(1))) + +(define x '(1 . 1)) +(set-cdr! x x) +(list x) +x +(cons x x) |