From 48b6bcbcc7973129b2d2c024919aed80ce3fe349 Mon Sep 17 00:00:00 2001 From: Teddy Date: Sun, 11 Aug 2013 14:43:54 +0800 Subject: add inf list test --- robust_test.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'robust_test.scm') 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