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

Include radix in low-level error message.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2018-12-13 15:38:17 -05:00
parent d2fdfe973e
commit c77388eeef
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/read/number.rkt
View File

@ -448,7 +448,7 @@
'read)))
(cond
[(or (not n) (string? n))
(error 'string->number "host `string->number` failed on ~s" (substring s start end))]
(error 'string->number "host `string->number` failed on ~s with radix ~s" (substring s start end) radix)]
[(eq? exactness 'inexact)
(cond
[(extflonum? n)

5
racket/src/racket/src/startup.inc
View File

@ -54696,8 +54696,9 @@ static const char *startup_source =
"(let-values()"
"(error"
" 'string->number"
" \"host `string->number` failed on ~s\""
"(substring s_0 start_0 end_0)))"
" \"host `string->number` failed on ~s with radix ~s\""
"(substring s_0 start_0 end_0)"
" radix_0))"
"(if(eq? exactness_0 'inexact)"
"(let-values()"
"(if(extflonum? n_0)"