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

Use source location for procedure in with-handlers.

Browse Source 
Fixes #2159.
This commit is contained in:
Sam Tobin-Hochstadt 2018-07-03 12:12:49 -04:00
parent 5f5599d2e8
commit 09c6ba48f6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/private/more-scheme.rkt
View File

@ -258,8 +258,9 @@
#'select-handler/breaks-as-is) #'select-handler/breaks-as-is)
e bpz e bpz
(list (cons pred-name handler-name) ...))) (list (cons pred-name handler-name) ...)))
#,(syntax/loc stx
(lambda () (lambda ()
expr1 expr ...)))))))])))]) expr1 expr ...))))))))])))])
(values (wh #t) (wh #f)))) (values (wh #t) (wh #f))))
(define (call-with-exception-handler exnh thunk) (define (call-with-exception-handler exnh thunk)