Fix 1 occurrence of zero-comparison-to-negative?

This expression is equivalent to calling the `negative?` predicate.

Author: resyntax-ci[bot]

typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-hetero.rkt

@@ -57,7 +57,7 @@
   (cond
     [(not (and (integer? i-val) (exact? i-val)))
      (tc-error/expr #:stx expr "expected exact integer for ~a index, but got ~a" name i-val)]
-    [(< i-val 0)
+    [(negative? i-val)
      (tc-error/expr #:stx expr "index ~a too small for ~a ~a" i-val name type)]
     [(not (< i-val i-bound))
      (tc-error/expr #:stx expr "index ~a too large for ~a ~a" i-val name type)]))