From 3b716960bec354c3c20abf4892b1d253d083baa4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 13 Nov 2001 00:50:04 +0000 Subject: [PATCH] ... original commit: 2ee4a44759596ca1b1e0cb75655c755c136d2ce7 --- collects/tests/mzscheme/pconvert.ss | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss index 0c26277..9f045ec 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.ss @@ -443,10 +443,14 @@ (let ([pc (lambda (pv) (lambda (x) - (parameterize ([use-numbered-names pv]) + (parameterize ([named/undefined-handler (lambda (x) 'whee)] + [use-named/undefined-handler + (lambda (x) pv)]) (print-convert x))))]) (test '(lambda (a1) ...) (pc #f) (let ([f (lambda (x) x)]) f)) - (test 'f_1 (pc #t) (let ([f (lambda (x) x)]) f)) - (test '(list f_2 f_3) (pc #t) (let ([g (lambda (y) (let ([f (lambda (x) y)]) f))]) (list (g 1) (g 2))))) + (test 'whee (pc #t) (let ([f (lambda (x) x)]) f)) + (test '(list whee whee) + (pc #t) + (let ([g (lambda (y) (let ([f (lambda (x) y)]) f))]) (list (g 1) (g 2))))) (report-errs)