diff options
| author | Teddy <ted.sybil@gmail.com> | 2013-08-09 22:18:39 +0800 |
|---|---|---|
| committer | Teddy <ted.sybil@gmail.com> | 2013-08-09 22:18:39 +0800 |
| commit | 1985734990b5c5ab3fd50277bff854ea3cd92b2c (patch) | |
| tree | d3e3843ef7b4779400addc1c53ebd8956a3f0995 /robust_test.scm | |
| parent | 155c3e5d46909d36d9f595e2a3b8d786240b9520 (diff) | |
fixed bug in `equal?`
Diffstat (limited to 'robust_test.scm')
| -rw-r--r-- | robust_test.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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))) |