シンボルの使い方とか間違ってるんだな。とりあえず。
それはいいとしても名前が意味不明。長さを示すのか座標を示すのか分からない。
お望みのコードを書いてやろうとして詰まった（藁

;;↓SICPっぽいかな？
;(rect-S '(2 4 8 7))とかやると(2,4)と(8,7)を頂点とする長方形の面積が出ます
(define rect-x1 car)
(define rect-y1 cadr)
(define rect-x2 caddr)
(define rect-y2 cadddr)
(define (rect-width rect)
　(- (rect-x2 rect) (rect-x1 rect)))
(define (rect-height rect)
　(- (rect-y2 rect) (rect-y1 rect)))
(define (rect-S rect)
　(* (rect-width rect) (rect-height rect)))