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

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

@ -5,19 +5,19 @@
(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)
out))]) out))])
(test (reverse n1) 'test-it (list ">(foo 2)" "<2"))) (test (reverse n1) 'test-it (list ">(foo 2)" "<2")))
(test (trace-output (test (trace-output