SICP 読み (71) 2.5.2 異る型のデータの統合

問題 2.86 はスルー予定。(を
それは良いのですが、問題 2.85 における real から rational への drop はとても微妙。例えば 1.2 は 6/5 になるべきなんですがどうすれば良いのだろうか。real の project は以下。

 (put 'project '(real)
      (lambda (x) (make-rational (floor x) 1)))

これは酷い。(自分で作っといて ...

スデにどの問題をスルーしたのか、が分からなくなってます。