chickadee » generalized-arrays » interval-contains?

A predicate which returns true iff the index idx is contained within the interval.

 
(import (generalized-arrays intervals)
        (test))

(test-assert "Index #(1 1) is contained within [(0, 0) (3, 3))"
             (interval-contains? (make-default-interval (vector 3 3))
                                 (vector 1 1)))