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

fix to handle multiple value return

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-04-21 16:55:30 -04:00
parent 457a6c16c3
commit 49a42fd089
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/unstable/debug.ss
View File

@ -15,7 +15,9 @@
(let ([e (with-handlers ([values (lambda (exn) (let ([e (with-handlers ([values (lambda (exn)
(printf "~a raised exception ~a~n" 'f exn) (printf "~a raised exception ~a~n" 'f exn)
(raise exn))]) (raise exn))])
(apply f l))]) (call-with-values (lambda () (apply f l)) list))])
(printf "~a result was ~a~n" 'f e) (if (and (pair? e) (null? (cdr e)))
e)))] (printf "~a result was ~a~n" 'f (car e))
(printf "~a results were ~a~n" 'f e))
(apply values e))))]
[(_ f . args) (debug (f . args))])) [(_ f . args) (debug (f . args))]))