suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adjust tc-utils too for new DrRacket protocol

Browse Source
This commit is contained in:
Asumu Takikawa 2014-10-06 23:48:20 -04:00
parent 220805a6bf
commit f271d3b167
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/tc-utils.rkt
View File

@ -151,7 +151,6 @@ don't depend on any other portion of the system
(define (log-type-error msg stxes) (define (log-type-error msg stxes)
(define stx (and (not (null? stxes)) (car stxes))) (define stx (and (not (null? stxes)) (car stxes)))
(when (and stx (when (and stx
(syntax-source stx)
(syntax-position stx) (syntax-position stx)
(syntax-span stx)) (syntax-span stx))
(define tooltip-info (define tooltip-info
@ -160,15 +159,15 @@ don't depend on any other portion of the system
(let ([fst (car (syntax-e stx))]) (let ([fst (car (syntax-e stx))])
(and (identifier? fst) (and (identifier? fst)
(free-identifier=? fst #'quote)))) (free-identifier=? fst #'quote))))
(list (vector (syntax-source stx) (list (vector stx
(sub1 (syntax-position stx)) (sub1 (syntax-position stx))
(+ (sub1 (syntax-position stx)) (syntax-span stx)) (+ (sub1 (syntax-position stx)) (syntax-span stx))
msg)) msg))
(list (vector (syntax-source stx) (list (vector stx
(sub1 (syntax-position stx)) (sub1 (syntax-position stx))
(syntax-position stx) (syntax-position stx)
msg) msg)
(vector (syntax-source stx) (vector stx
(sub1 (+ (sub1 (syntax-position stx)) (sub1 (+ (sub1 (syntax-position stx))
(syntax-span stx))) (syntax-span stx)))
(+ (sub1 (syntax-position stx)) (+ (sub1 (syntax-position stx))