From b78c10ce42954b8cc6bba1e4189065b4c18cc54d Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Tue, 30 Dec 2014 22:00:04 -0600 Subject: [PATCH] fixed an off by 1 error in covered? --- private/format-utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/private/format-utils.rkt b/private/format-utils.rkt index 2ec1d62..8f36d9f 100644 --- a/private/format-utils.rkt +++ b/private/format-utils.rkt @@ -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)