suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid free variable "a"

Browse Source 
original commit: 8f2daf6bc3e985391d234cc32c815a18dc10d5fc
This commit is contained in:
Matthew Flatt 2004-01-08 20:54:30 +00:00
parent 9213b2bfa7
commit 44d74d96b3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mzscheme/pconvert.ss
View File

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