From 09c6ba48f67e4e3ebe7f334b2e15de5bc2260c81 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 3 Jul 2018 12:12:49 -0400 Subject: [PATCH] Use source location for procedure in `with-handlers`. Fixes #2159. --- racket/collects/racket/private/more-scheme.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/more-scheme.rkt b/racket/collects/racket/private/more-scheme.rkt index 486cf753c2..17198076f3 100644 --- a/racket/collects/racket/private/more-scheme.rkt +++ b/racket/collects/racket/private/more-scheme.rkt @@ -258,8 +258,9 @@ #'select-handler/breaks-as-is) e bpz (list (cons pred-name handler-name) ...))) - (lambda () - expr1 expr ...)))))))])))]) + #,(syntax/loc stx + (lambda () + expr1 expr ...))))))))])))]) (values (wh #t) (wh #f)))) (define (call-with-exception-handler exnh thunk)