From 1985734990b5c5ab3fd50277bff854ea3cd92b2c Mon Sep 17 00:00:00 2001 From: Teddy Date: Fri, 9 Aug 2013 22:18:39 +0800 Subject: fixed bug in `equal?` --- robust_test.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'robust_test.scm') diff --git a/robust_test.scm b/robust_test.scm index 7b7bfd4..152e380 100644 --- a/robust_test.scm +++ b/robust_test.scm @@ -218,3 +218,6 @@ src (if #f 1 ()) ; Error ; "Test double quotes in comments" (display " Test double quotes outside the comments ; ;; ; ; ") + +(equal? #(1 2 '()) #(1 2 '(1))) +(equal? #(1 2 '(1)) #(1 2 '(1))) -- cgit v1.2.3