fixed an off by 1 error in covered?

This commit is contained in:
Spencer Florence 2014-12-30 22:00:04 -06:00
parent 1a4c54d3f8
commit b78c10ce42

View File

@ -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)