diff options
| author | Teddy <[email protected]> | 2013-08-11 14:43:54 +0800 |
|---|---|---|
| committer | Teddy <[email protected]> | 2013-08-11 14:43:54 +0800 |
| commit | 48b6bcbcc7973129b2d2c024919aed80ce3fe349 (patch) | |
| tree | 2cc2464ee649e5a3449b18f91035e5bf3ba813e4 | |
| parent | 04f0c9294a8da8c37ef3466fbcddf2a23b649608 (diff) | |
add inf list test
| -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) |