pair-compare-car

[procedure] pair-compare-car compare

SRFI-67: Construct a compare procedure on pairs which only uses the car, and ignores the other. One could define

(define (pair-compare-car compare)
  (lambda (x y) (compare (car x) (car y))))