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

mu

Browse Source 
svn: r16160
This commit is contained in:
Eli Barzilay 2009-09-29 04:38:02 +00:00
parent 230fcf49df
commit b280232aea
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/mzscheme/trace.ss
View File

@ -5,15 +5,15 @@
(require scheme/trace) (require scheme/trace)
(define-syntax-rule (trace-output expr ...) (define-syntax-rule (trace-output expr ...)
(let ([out (list)]) (let ([out '()])
(parameterize ([current-trace-notify (lambda (e) (parameterize ([current-trace-notify
(set! out (cons e out)))]) (lambda (e) (set! out (cons e out)))])
expr ... expr ...
(reverse out)))) (reverse out))))
(let ([n1 (let ([out (list)]) (let ([n1 (let ([out '()])
(parameterize ([current-trace-notify (lambda (e) (parameterize ([current-trace-notify
(set! out (cons e out)))]) (lambda (e) (set! out (cons e out)))])
(define (foo x) x) (define (foo x) x)
(trace foo) (trace foo)
(foo 2) (foo 2)