original commit: 85c192377e58acaa38368a04775b30bc116865a4
This commit is contained in:
Robby Findler 1999-07-30 19:34:34 +00:00
parent ba0e46d214
commit 02ae494608

View File

@ -160,6 +160,8 @@
'(cons 3/2+3/2i null))
(make-same-test (vector 0 0 0 0 0 0 0 0 0 0) '(vector 0 0 0 0 0 0 0 0 0 0))
(make-same-test #t 'true)
(make-same-test #f 'false)
(make-same-test (interface () a b c) '(interface ...))
@ -324,8 +326,8 @@
(define test-shared (make-test-shared #t))
(define test-not-shared (make-test-shared #f))
(test-not-shared #t #t)
(test-not-shared #f #f)
(test-not-shared #t true)
(test-not-shared #f false)
(test-not-shared 1 1)
(test-not-shared 3276832768327683276832768327683276832768
3276832768327683276832768327683276832768)