Skip to content

Commit

Permalink
Add check for sub-range binder syntax-source
Browse files Browse the repository at this point in the history
When it's not the currently analyzing file, not sure what to do. For
now, ignore it.
  • Loading branch information
greghendershott committed Apr 14, 2023
1 parent e3ecd37 commit 1658fa3
Showing 1 changed file with 5 additions and 1 deletion.
6 changes: 5 additions & 1 deletion analyze.rkt
Original file line number Diff line number Diff line change
@@ -170,7 +170,7 @@
[(cons (== path) (? file? f)) f]
[v (error 'get
"called for ~v but current analyzing file is ~v"
path v)]))
path (car v))]))

;; Collect things for which we'll make one call to add-nominal-imports
;; when done.
@@ -539,6 +539,10 @@
def-stx def-ofs def-span _ _))
(define path (syntax-source def-stx))
(when (and path
;; TODO: Not sure how to handle when different.
;; Arises with e.g.
;; <pkgs>/redex-benchmark/redex/benchmark/models/rvm/rvm-14.rkt.
(equal? path (car (current-analyzing-file)))
(path-string? path)
(syntax-position full-stx)
(syntax-position def-stx))

0 comments on commit 1658fa3

Please sign in to comment.