計算機程序的構造和解釋 練習題2.83

爲整形和有理數都編寫了相關得提升類型過程，同時加入公共方法raise x

(define (raise x) (apply-generic 'raise x))
//放到install-rational-package包下面
(put 'raise '(rational)
	(lambda (x) (make-complex-from-real-imag (/ (numer x) (denom x)) 0)))
//放到install-scheme-number-package包下面
(put 'raise '(scheme-number)
	(lambda (x) (make-rational x 1)))