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

...

Browse Source 
original commit: 2ee4a44759596ca1b1e0cb75655c755c136d2ce7
This commit is contained in:
Robby Findler 2001-11-13 00:50:04 +00:00
parent 10ff0f1e62
commit 3b716960be
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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