3 (define (equ? x y) (apply-generic 'equ? x y))
5 (define (install-scheme-number-package)
8 (put 'equ? '(scheme-number scheme-number) equ?)
11 (define (install-rational-number-package)
13 (let* ([n1 (numer r1)]
19 (and (= (/ n1 g1) (/ n2 g2))
20 (= (/ d1 g1) (/ d2 g2)))))
21 (put 'equ? '(rational rational) equ?)
24 (define (install-complex-number-package)
26 (and (= (real-part z1) (real-part z2))
27 (= (imag-part z1) (imag-part z2))))
28 (put 'equ? '(complex complex) equ?)