From 21f4156b15eac0e4e1d7c34e3528b1a17ca9b825 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 25 Aug 1999 14:42:35 +0000
Subject: [PATCH] ...

original commit: f506aebaf30b9e78a8cf2311bf12add69a1a0f34
---
 collects/tests/mzscheme/pconvert.ss | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index 7cb51f8..effee2d 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -354,6 +354,15 @@
 (arity-test get-shared 1 2)
 (arity-test print-convert-expr 3 3)
 (test 'null print-convert '())
-(parameterize ([empty-list-name 'empty])
-  (test 'empty print-convert '()))
+
+(let ([pc
+       (lambda (pv)
+         (lambda (x)
+           (parameterize ([booleans-as-true/false pv])
+             (print-convert x))))])
+  (test 'false (pc #t) #f)
+  (test 'true (pc #t) #t)
+  (test #f (pc #f) #f)
+  (test #t (pc #f) #t))
+
 (report-errs)