suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: disable non-decimal string->number on inexacts

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-28 10:55:44 -06:00
parent 77bcfde77c
commit 8e1b27592f
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/cs/rumble/number.ss
View File

@ -329,6 +329,13 @@
(check who (lambda (radix) #f) (check who (lambda (radix) #f)
:contract "(or/c 2 8 10 16)" :contract "(or/c 2 8 10 16)"
radix)) radix))
(when (and (not (eq? radix 10)) (inexact? n))
(raise
(exn:fail:contract (string-append
"number->string: inexact numbers can only be printed in base 10\n"
" number: " (number->string n) "\n"
" requested base: " (number->string radix))
(current-continuation-marks))))
(do-number->string n radix)] (do-number->string n radix)]
[(n) [(n)
(do-number->string n 10)])) (do-number->string n 10)]))