From 48b6bcbcc7973129b2d2c024919aed80ce3fe349 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Sun, 11 Aug 2013 14:43:54 +0800
Subject: add inf list test

---
 robust_test.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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)
-- 
cgit v1.2.3-70-g09d2