Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (15 sloc) 394 Bytes
(define (install-scheme-number-package)
;; ...
(put 'raise '(scheme-number)
(lambda (x) (make-rational x 1)))
'done)
(define (install-rational-package)
;; ...
(put 'raise '(rational)
(lambda (x) (make-real (/ (numer x) (denom x)))))
'done)
(define (install-real-package)
;; ...
(put 'raise '(real)
(lambda (x) (make-from-real-imag x 0)))
'done)