suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 85c192377e58acaa38368a04775b30bc116865a4
This commit is contained in:
Robby Findler 1999-07-30 19:34:34 +00:00
parent ba0e46d214
commit 02ae494608
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/pconvert.ss
View File

@ -160,7 +160,9 @@
'(cons 3/2+3/2i null)) '(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 (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 ...)) (make-same-test (interface () a b c) '(interface ...))
(make-same-test (delay 1) '(delay ...)) (make-same-test (delay 1) '(delay ...))
@ -324,8 +326,8 @@
(define test-shared (make-test-shared #t)) (define test-shared (make-test-shared #t))
(define test-not-shared (make-test-shared #f)) (define test-not-shared (make-test-shared #f))
(test-not-shared #t #t) (test-not-shared #t true)
(test-not-shared #f #f) (test-not-shared #f false)
(test-not-shared 1 1) (test-not-shared 1 1)
(test-not-shared 3276832768327683276832768327683276832768 (test-not-shared 3276832768327683276832768327683276832768
3276832768327683276832768327683276832768) 3276832768327683276832768327683276832768)