From 02ae494608ba32bfa00e88408bc61f3db4485fce Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 30 Jul 1999 19:34:34 +0000 Subject: [PATCH] ... original commit: 85c192377e58acaa38368a04775b30bc116865a4 --- collects/tests/mzscheme/pconvert.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss index 9a600e5..7cb51f8 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.ss @@ -160,7 +160,9 @@ '(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 ...)) (make-same-test (delay 1) '(delay ...)) @@ -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)