fixed an issue with how out of range values were handled

This commit is contained in:
Spencer Florence 2015-01-13 22:38:03 -05:00
parent 67e017846d
commit 144c42f1c7

View File

@ -32,7 +32,7 @@
(coverage-cache-file path c file/str->byte-offset))
(lambda (loc #:byte? [byte? #f])
(hash-ref file-location-coverage-cache (if (not byte?) loc (- loc (file/byte->str-offset loc)))
(lambda () (error 'covered? "char ~s was not cache for file ~s" loc path)))))
'missing)))
;; Path FileCoverage OffsetFunc -> [Hashof Natural Cover]