From 10ff0f1e623d2c094be1478976eca54948c653b0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 12 Nov 2001 18:45:43 +0000 Subject: [PATCH] added test for multiple functions original commit: 4f0039654f1a64984f45973f8b5dcbd8ba71bb8d --- collects/tests/mzscheme/pconvert.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss index 719333b..0c26277 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.ss @@ -445,7 +445,8 @@ (lambda (x) (parameterize ([use-numbered-names 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 '(lambda (a1) ...) (pc #f) (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))))) (report-errs)