SICP Exercise 2.2

gistfile1.el

;; SICP Exercise 2.2

(define (make-segment (start-segment end-segment))
	

(define (start-segment (x y))
	(= (cons (x y)) start-segment)
	   (print-point start-segment))
	
(define (end-segment (x y))
	(= (cons (x y)) end-segement)
	   (print-point end-segment))
	
(define (midpoint-segment (make-segment end-segment))
	(cons 
 	(- (car make-segment) (car end-segment))
	(- (cdr make-segment) (cdr end-segment)))
	(print-point midpoint-segment))