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

Fixes check syntax bug

Browse Source
This commit is contained in:
Casey Klein 2011-08-15 17:50:11 -05:00
parent a0f2db7574
commit 72059c908b
2 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/syncheck/traversals.rkt
View File

@ -1228,6 +1228,7 @@
(when ed
(define pos (syntax-position var))
(define span (syntax-span var))
(when (and pos span)
(define start (- pos 1))
(define fin (+ start span))
(define loc (list ed start fin))
@ -1235,7 +1236,7 @@
id-to-sets
var
(set-add (module-identifier-mapping-get id-to-sets var set)
loc)))))))
loc))))))))
(module-identifier-mapping-for-each
id-to-sets
(λ (id locs)

21
collects/tests/drracket/syncheck-direct.rkt
View File

@ -66,3 +66,24 @@
(let ([y 1]) y)))))))
(done))
add-arrow-called?))
(check-not-exn
(λ ()
(define annotations
(new (class (annotations-mixin object%)
(super-new)
(define/override (syncheck:find-source-object stx)
stx))))
(define base-namespace (make-base-namespace))
(define-values (add-syntax done)
(make-traversal base-namespace #f))
(parameterize ([current-annotations annotations]
[current-namespace base-namespace])
(eval '(require (for-syntax racket/base)))
(add-syntax
(expand
'(let-syntax ([m (λ (_) #`(let ([x 1]) x))])
(m))))
(done))))