Lines as Pairs of Points

 left top right 
(define (make-line p1 p2)
  (cons p1 p2))
(define (line-start l) (car l))
(define (line-end l) (cdr l))

(define (line-length line)
  (distance (line-start line) (line-end line)))
Jim Miller W3C