Use source location for procedure in with-handlers.

Fixes #2159.
2018-07-03 12:12:49 -04:00 · 2018-07-03 12:12:49 -04:00 · 09c6ba48f6
commit 09c6ba48f6
parent 5f5599d2e8
1 changed files with 3 additions and 2 deletions
--- 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)