reader examples typo

(cherry picked from commit f46144d5d3)
This commit is contained in:
Eli Barzilay 2010-07-27 10:15:40 -04:00
parent 5d12f72a52
commit 9e71bbb50e

View File

@ -61,7 +61,7 @@
[(number? v)
(let loop ([v v])
(if (inexact? v)
`(inexact->exact ,(loop (inexact->exact v)))
`(exact->inexact ,(loop (inexact->exact v)))
(cond
[(integer? v) v]
[(real? v) `(/ ,(numerator v)