From f271d3b1675a8d615a50ef73b181cdac7040b998 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Mon, 6 Oct 2014 23:48:20 -0400 Subject: [PATCH] Adjust tc-utils too for new DrRacket protocol --- .../typed-racket-lib/typed-racket/utils/tc-utils.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt index d2c899b463..90f2ab48f0 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt @@ -151,7 +151,6 @@ don't depend on any other portion of the system (define (log-type-error msg stxes) (define stx (and (not (null? stxes)) (car stxes))) (when (and stx - (syntax-source stx) (syntax-position stx) (syntax-span stx)) (define tooltip-info @@ -160,15 +159,15 @@ don't depend on any other portion of the system (let ([fst (car (syntax-e stx))]) (and (identifier? fst) (free-identifier=? fst #'quote)))) - (list (vector (syntax-source stx) + (list (vector stx (sub1 (syntax-position stx)) (+ (sub1 (syntax-position stx)) (syntax-span stx)) msg)) - (list (vector (syntax-source stx) + (list (vector stx (sub1 (syntax-position stx)) (syntax-position stx) msg) - (vector (syntax-source stx) + (vector stx (sub1 (+ (sub1 (syntax-position stx)) (syntax-span stx))) (+ (sub1 (syntax-position stx))