ompayne
/
sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add coercion of scheme-number->rational

This commit is contained in:
Oliver Payne 2022-02-13 15:45:40 +00:00
parent 38dc50f4b2
commit a922aad66d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2_78.rkt
View File

@ -342,8 +342,11 @@
(define (scheme-number->complex n)
(make-complex-from-real-imag (contents n) 0))
(define (scheme-number->rational n)
(make-rational n 1))
(put-coercion 'scheme-number 'complex scheme-number->complex)
(put-coercion 'scheme-number 'rational scheme-number->rational)
(define (scheme-number->scheme-number n) n)
(define (complex->complex z) z)