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))) 'read)))
(cond (cond
[(or (not n) (string? n)) [(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) [(eq? exactness 'inexact)
(cond (cond
[(extflonum? n) [(extflonum? n)

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

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