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

Re-enable the printer here.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-06-01 16:30:04 -04:00
parent fe9395fdbf
commit 7b2de53733
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt
View File

@ -62,6 +62,7 @@
[(_ e) [(_ e)
#`(parameterize ([delay-errors? #f] #`(parameterize ([delay-errors? #f]
[current-namespace (namespace-anchor->namespace anch)] [current-namespace (namespace-anchor->namespace anch)]
[custom-printer #t]
[orig-module-stx (quote-syntax e)]) [orig-module-stx (quote-syntax e)])
(let ([ex (expand 'e)]) (let ([ex (expand 'e)])
(parameterize ([mutated-vars (find-mutated-vars ex)]) (parameterize ([mutated-vars (find-mutated-vars ex)])
@ -72,6 +73,7 @@
[(_ e) [(_ e)
#`(parameterize ([delay-errors? #f] #`(parameterize ([delay-errors? #f]
[current-namespace (namespace-anchor->namespace anch)] [current-namespace (namespace-anchor->namespace anch)]
[custom-printer #t]
[orig-module-stx (quote-syntax e)]) [orig-module-stx (quote-syntax e)])
(let ([ex (expand 'e)]) (let ([ex (expand 'e)])
(parameterize ([mutated-vars (find-mutated-vars ex)]) (parameterize ([mutated-vars (find-mutated-vars ex)])