From 44d74d96b3623626c8de31ee604d368aed8255fc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 8 Jan 2004 20:54:30 +0000 Subject: [PATCH] avoid free variable "a" original commit: 8f2daf6bc3e985391d234cc32c815a18dc10d5fc --- collects/tests/mzscheme/pconvert.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss index ac508e6..49c9046 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.ss @@ -200,14 +200,14 @@ (make-same-test (lambda x x) '(lambda args ...)) (make-same-test (lambda (a b . c) a) '(lambda (a1 a2 . args) ...)) (make-same-test (case-lambda) '(case-lambda)) - (make-same-test (case-lambda [() a] [(x) a]) '(case-lambda [() ...] [(a1) ...])) - (make-same-test (case-lambda [() a] [(x y) a]) + (make-same-test (case-lambda [() 'a] [(x) 'a]) '(case-lambda [() ...] [(a1) ...])) + (make-same-test (case-lambda [() 'a] [(x y) 'a]) '(case-lambda [() ...] [(a1 a2) ...])) - (make-same-test (case-lambda [() a] [(x . y) a]) + (make-same-test (case-lambda [() 'a] [(x . y) 'a]) '(case-lambda [() ...] [(a1 . args) ...])) - (make-same-test (case-lambda [() a] [x a]) + (make-same-test (case-lambda [() 'a] [x 'a]) '(case-lambda [() ...] [args ...])) - (make-same-test (case-lambda [() a] [(x y z) a] [x a]) + (make-same-test (case-lambda [() 'a] [(x y z) 'a] [x 'a]) '(case-lambda [() ...] [(a1 a2 a3) ...] [args ...])) (make-same-test (let ([ht (make-hash-table)]) (hash-table-put! ht 'x 1)