original commit: f506aebaf30b9e78a8cf2311bf12add69a1a0f34
This commit is contained in:
Robby Findler 1999-08-25 14:42:35 +00:00
parent 168e7abd48
commit 21f4156b15

View File

@ -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)