fixed an off by 1 error in covered?
This commit is contained in:
parent
1a4c54d3f8
commit
b78c10ce42
|
@ -148,7 +148,7 @@
|
|||
([pair c])
|
||||
(match pair
|
||||
[(list m (srcloc _ _ _ start range))
|
||||
(if (and (<= start loc (+ start range))
|
||||
(if (and (<= start loc (+ start range -1))
|
||||
(or (eq? mode 'none)
|
||||
(> start last-start)))
|
||||
(values m start)
|
||||
|
|
Loading…
Reference in New Issue
Block a user