Preserve syntax location in get-field

(needed to let TR show a type tooltip for it)
2015-05-12 15:09:32 -04:00 · 2015-05-12 15:09:32 -04:00 · e6113d1c3c
commit e6113d1c3c
parent 46030642fa
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/private/class-internal.rkt
+++ b/racket/collects/racket/private/class-internal.rkt
@ -3982,7 +3982,7 @@ An example
    [(_ name obj)
     (identifier? (syntax name))
     (with-syntax ([localized (localize (syntax name))])
-       (syntax (get-field/proc `localized obj)))]
+       (syntax/loc stx (get-field/proc `localized obj)))]
    [(_ name obj)
     (raise-syntax-error
      'get-field "expected a field name as first argument"