Add current module source location to tooltip stxobj.

Related to racket/racket#4811
racket · Nov 9, 2023 · 351c383 · 351c383
1 parent 7054dac
commit 351c383
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt b/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt
@@ -555,7 +555,8 @@
   (log-message online-check-syntax-logger
                'info
                "TR's tooltip syntaxes; this message is ignored"
-               (list (syntax-property #'(void) 'mouse-over-tooltips (type-table->tooltips))))
+               (list (syntax-property (datum->syntax #'here '(void) (orig-module-stx))
+                                      'mouse-over-tooltips (type-table->tooltips))))
   ;; report delayed errors
   (report-all-errors)
   ;; provide-tbl : hash[id, listof[id]]